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ABSTRACT 


A software metric is a tool that should be used in the development of quality 
software. The properties that define good software vary but encompass reliability, 
complexity, efficiency, testability, understandability, and modifiability. The 
Henry metric measures the complexity of data flow within a module and the 
complexity of inter-module communication. This thesis is an extension of a 
previous thesis titled “AdaMeasure’ that calculated the Halstead metric. The 
present design and implementation is a tool that computes the Halstead and 


Henry metrics for Ada programs. 
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I. INTRODUCTION AND BACKGROUND 


A. DEFINITIONS 

A metric is an assignment of indices of merit to programs in order to evaluate 
and predict software quality [Ref.1: p.6-2]. The qualities to measure are, at 
present, subjectively chosen but in general encompass reliability, complexity, 
efficiency, testability, understandability and modifiablity [Ref.2: p.1-3]. The 
predictive nature of a metric allows it to be used to say "when" to proceed to the 
next phase in the software life cycle model. Another aspect of the predictive 
nature of a metric would be for it to provide management with a rough guess of 
the outcome of a particular path of development, provide an acceptance index, or 
provide an immediate feedback loop to the implementors while in the unit test 
phase [Ref.2: p.5]._ How the metric is implemented will dictate its primary use 


from the above selections. 


B. SALLIE HENRY’S METRIC 

Sallie Henry's metric attempts to measures data flow complexity. It is 
intended to be used as a tool to establish a module’s quality or to enforce 
particular modularization standards |Ref.2: p.6|. She argues that quality control 
of software is the result of software reliability and that reliability comes about 


through well designed modules that do not have complex data flow. 


The hierarchical structure of a program should be layered modules. Each 
layer aeeita function as a virtual machine and be composed of modules. This 
approach to modularization gives each module characteristics that can be 
exploited so that each module can be independently developed, more easily 
comprehended, assembled so that the system is more stable and designed so that 
the system is a great deal more flexible. This schema of development extols two 
primary tenets that are stated by D. Parnas in [Ref.3: p.339] and quoted here: 

. . . provide the user of a module with all the information to use the module 


correctly, and nothing more. Provide the implementor of the module with all the 
information to implement the module correctly, and nothing more. 


All this implies that a good design will have high module cohesion, good 


module strength and low module coupling |Ref.4: p.330]. 


C. INFORMATION FLOW 

Information flow complexity is a twofold process the flow of data within a 
module and the flow of data external to the module. The measurement of these 
criteria is dependent on two premises: (1) that there is a capability to measure 
this data and (2) the data obtained can be used to evaluate software design. The 
seemingly obvious nature of the first premise runs into problems in 
implementation and applicability, but if it is accepted that the first deficiency can 
be surmounted, then the second part remains to be shown as reasonable. 
Applicability is a debated concept that is still not resolved. It revolves around 


whether the data gathered is related to the property under consideration. It is 
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further exacerbated by the human element that defines an environmental bubble 
and then programs within this bubble. How to measure this bubble without 
destroying its foundations is the problem of measuring human performance. The 
problem of what to measure is the problem of applicability. 

The more specific the metric’s application the less the applicability property is 
questioned, but, the problem of "What" to measure is still not clearly defined. 
This thesis will not argue the applicability question because the approach of Sallie 
Henry is reasonable and the results obtained from the metric appear to adequately 
encompass the area of data flow complexity. If the reader will accept that the 
properties measured are related to data flow complexity then the results obtained 
are also related to complexity. 

The second premise is even more thorny. If the data is obtained and it seems 
reasonable can it be shown to be truly the result of the property under 
measurement? Any human endeavor will never be clearly and objectively 
quantified. Thus, the answer to the efficacy of the second premise is, proceed and 
maybe the amassing of results will eventually show the correlation. 

The above analysis is far from a convincing argument to utilize metrics to 
measure programs however as this thesis was developed the applicability of 
measuring data flow complexity in order to determine code quality became more 
apparent although not proven. Nothing will be learned if no attempt is made to 


measure data flow complexity. This thesis attempts to measure data flow 


complexity in the light of learning and the hope that the data gathered will prove 
the applicability of the process. 

Consider first a simple module: a procedure in a structured language. Each 
procedure defines certain relations between itself and other procedures. These 


include: 


formal input/output parameters 


- function call input and return data 
- local data structures 


global data structures 


These relations will generate a particular information flow structure similar to 
a hierarchical tree structure. This tree structure is peculiar to the procedure and 
will reflect its complexity of structure. It is reasonable to analyze this tree to 


determine derived calls, local data flow and global data flow. 


D. RELATIONS 

Some definitions are now in order. Global data flow exists from procedure 1 
to procedure 2 if procedure 1 deposits data in the global data structure and then 
procedure 2 reads that data. Local data flow comprises direct and indirect species. 
A local direct flow, from procedure 1 to procedure 2, results when procedure 1 
calls 2 passing parameters. An indirect data exchange from procedure 1 to 
procedure 2 exists if procedure 2 calls 1, which returns a value used by 2, or 


procedure 3 calls both 1 and 2, and passes an output value from 1 to 2. 


Figure 1 represents data flow from procedure to procedure or from a 
procedure into a data structure. Parameter passing within this scheme is 
represented by the arrows. A hidden data exchange through modification of a 
variable is represented by the dashed flow arrow. Module A retrieves data from 
the data structure then calls B passing a parameter; module B updates the data 
structure. C calls D passing a parameter. D calls E with a parameter and E 
returns a value to D which is used by D and passed to F. The function of F 


updates the data structure. 





Figure 1. Data Flow Structure 
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The direct data flows represented are: 
A pee -- Des BoeD-> fF. 


These are simply the calls. 


The indirect local fiows are: 


E-> D,F-> A. 


The global flows are: 
B->A,F-> A. 


Both B and F update the data structure while A retrieves data from the 
structure. 

The implications of data flow for procedure and function calls will be 
discussed later with derived calls. 

The calling notation A(x) -> B() or A() -> B(x) is used to connote a data 
flow transmission from A to B either by direct parameter passing or side-effect. In 
the first condition the variable x is returned to procedure A and in the second 
example the variable x is sent to B. A condition that leads the Henry metric to 
not detect a procedure or function call’s data flow (labeled a missed call) is for the 
condition where A(x) -> B() and variable x is a returned value from B not 
modified within procedure A’s code. An example of this would be a conditional 
statement within A that depends on the returned value from function B. The 
data flow detection problem leads to two key ideas, effective parameters and data 
utilization. 

Calls that are detected by information flow analysis are dependent upon how 


the information is passed. If the conditions A() -> B(x) exists where parameter x 
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is passed to B or condition A() -> B() where no parameters are exchanged then 
the calls will not be missed if B receives information in one of the following 


formats: 


- a formal parameter 
- a data structure 
- a constant 


- an actual parameter from a third procedure whose value is 
modified within A prior to the call to B 


An effective parameter will define the call structure in such a way that the 
data flow will not be missed. It is a parameter that receives information from one 
of the calling procedure’s parameters, a data structure, a constant, or a third 
procedure’s returned actual parameter that is modified within the calling modules 
structure. What the effective parameter implies is that side- effect data flow is 
difficult to effectively analyze. Another construct that will cause a missed call is 
the condition A(z) -> B(x) where B is a function. This condition means A uses 
data from B. A uses data from B if (1) B updates a data structure used by A; (2) 
A receives a constant from B; (3) A receives an output parameter from B; or (4) B 
updates a return value to A. Thus information flow will be detected if A passes B 
an effective parameter or if A uses data from B. 

Appendix A gives all the rules that are applicable to the data flow 
relationships. Some notation is now needed to simplify the descriptions that 


follow. 
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The form of a relation is L <- Rl, R2, R3,...Rn:; where L is the resultant from 
the application of the relationships R1, R2.... Rn. An example would be: 
A.D3 <- A.D1, A.D2, A.constant. 


This series notation represents the code line that begins with D3 below. 


A() 
begin 


D3 := D1 + D2 +41; 
end procedure A; 


In words. the A.D3 means procedure A updates data structure D3 by first 
applying relationship A.D1 then A.D2 and finally A.constant. This format shows 
that data flows into procedure A’s data structure D3 from the noted relationships. 
A thorough discussion of the notation for the relations is given in Appendix A but 
a short discussion follows to aide in the immediate understanding of Figure 2. 

The notation B.1.I defines the first input parameter in the actual parameter 
list of procedure B and an O would refer to an output parameter. All possible 
data flow paths are considered even if a B.1.] parameter is not an input 
parameter. Thus, if procedure B has an output actual parameter in position B.1 
and the Henry metric attempts to analyze this parameter as an input flow an 
error condition would result from the attempted evaluation (depicted as 
B.ERROR). B.NULL means that no relationship exits for this parameter or that 


there is no data flow into or out of the parameter being considered. 
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Figure 2. Data Flow With Call Structure 


Code 


A() 

begin 
X:= D1 +1; 
Y <= D2: 
B(X,Y); 


end; 


B(P,Q) 

begin 
D3:=P+Q; 
end; 
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Relations Set 

Paeboletia=A Dil A-CONSTANT 
AZ Bi2 1) <- A.D2 

Bl B.1.0 <- B.NULL 


in B20 B.NULL 
io O38 <996.1.1, B.2.1 


The relation sets were derived by looking at the data flow into and out of 
procedure A. That is, since procedure A has no parameters there can only be 
local data flows into or out of the procedure. These flows are described in terms 
of the procedure call to B. B.1.] stands for procedure B's first input parameter. 
This parameter is fed from procedure A's data structure Dl and a constant. 
Analyzing procedure B’s second input parameter yields the A2 relationship. 
Relationship Bl describes the first parameter in procedure B as an output 
parameter to procedure A that receives no data for transfer. Relationship B3 
describes how the two input parameters to procedure B constitute the data flow 
to this data structure. 

The data flow analysis deals primarily with the analysis of parameters which 
are direct data flow and indirect data flow as defined above. Modifying Figure 2 
and incorporating some local variables will illustrate some more data flow analysis 


techniques as seen in Figure 3. 
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Relation Set 

Al, A2 same. 

i tO <- C.1.0 
B2 B.2.0 <- B.NULL 
foe .1.1 <= 8B.1.1 
mao 4 <= 2.) 


Bo ©.3.1 <- BERROR 
B6 B.D3 <- C.3.0 


on C.1.1 <- C.NULL 
me 2-O.<- C 21C CONSTANT 
Wome o.0 <- C.1.1, C27] 


In the relation set B1 receives data from procedure C’s output parameter. B2 
is the same. B3 through BS describe the parameter list of procedure C. However 
B5 denotes an error or a condition that is not allowed. That is, the data direction 
was in error as variable S is an output from procedure C as indicated by relation 
B6. It should be noted that this relation set building considers all possible data 
flow paths without regard to the possibility that the parameters could be assigned 
only particular directions as Ada formal parameters are. Figure 4 shows the effects 


of a function call. 
Code 


A( 
begin 
= D141; 
Y := F(X); 
B(X,Y) 


end; 
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Figure 4. Data Flow With Function Call 


F(M) return integer; 
begin 

—D2eean le 
return N; 
end; 


Relation Sets are changed as follows: 

Al F.1.I <- A.D1, ACCONSTANT 

A2 B.1.I <- A.D1, ACCONSTANT, F.1.0 
Aga? =i 


FUSE AO <> foONUEL 
B21 O°” <2 ID? tse 


Relation Al has changed to reflect the analysis of the function call to F. The 
input to the function call is analyzed as well as its output and any possible 
modification of its input parameter. This analysis can be seen to cover all 


possibilities of hidden data transfers except the missed calls described earlier. 
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E. INFORMATION FLOW STRUCTURE 

Once the relation set has been built the relations are sorted alphabetically and 
stored for future use in the Information Flow Structure (IFS). A recursive 
algorithm is employed to build the information tree structure for the flow 
analysis. The IFS is then analyzed to find the derived calls, the local flows and, 
finally, the global flows. 

The IFS will have leaves that are data structures; the root is the initial call 
from the highest level procedure. Each node of the tree will have the relational 
form of X.DS, X.O, X.k.I, or X.k.O. See Appendix A for all the possibilities of 
derived calls. The local flows are described in Appendix A as derived calls. The 
global flows for a particular data structure are all the possible paths from leaf 


elements of the form A.DS to the root. 


PeetNDICES OF MERIT 

The calculations of the indices of merit use the idea that the complexity of a 
module comprises the complexity of the code plus the complexity of the 
connections of the code to other modules. The formula describing the complexity 


of a module is 
Complexity = length * (fan-in * fan-out) “ “code index. 


Length is defined as the number of executable statements. The expression 
fan-in * fan-out represents all the combinatorial possibilities for each input to 
produce an output. The code index is an exponent that represents the code 
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difficulty. Nominal code difficulty for operating systems is 2. This index needs 
more data for other types of programming. 

The purpose of this computation is to produce comparative numbers of merit 
that point out and isolate specific areas within the code that have the potential 
for problems. A high fan-in/fan-out implies a large interconnection to outside 
modules. This leads to the assessment that the code in question is most likely not 
properly modularized or, more succinctly, that the code has more than one 
function. The other form of data flow is global data flow to data structures. It is 


calculated as follows: 


Global flow = write * (read + read write) + 
read write * (read + read write - 1) 


The term write refers to a change to the data within the structure through an 
assignment statement and a read is an access to the data structure that does not 
change the data. The identifier read-write is the sum of reads and writes. A high 
global flow implies overworked data structures and represents a stress point in the 
program. A stress point is the weak link in the chain. The presence of high flow 
is not automatically an indicator of poor programming but it is a juncture in the 
program that is highly susceptible to problems. Once the metric has assembled all 
the different components, such as fan-in or global reads and calculated the above 


equations it performs module analysis. 
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G. MODULE ANALYSIS 

Module analysis revolves on the outputs of each of the above equations and 
their respective components. The numbers generated are symptomatic of certain 
problems. The analysis is first conducted with the equations output defining the 
particular categories of problems then the components refine the analysis. 
Examples of the first level of analysis follow: 

A high global flow calculation implies an overworked data structure. These 
structures are overworked because of the need for continuous accessing. This 
implies a better decentralized design is in order, that is, distribute the information 
to the procedures that it serves. A high module complexity index indicates not 
enough modularization. This number is to be treated with respect but should be 
analyzed in context with global data flow. Together these indices represent the 
in’s and out’s of the modules data. A corrective action based solely on complexity 
should be avoided. A procedure should be analyzed for singularity of purpose and 
non-duplication within a module. Simply put, a procedure should be in one place, 
have one purpose and have minimal external references. These properties are 
quantified by the Complexity and Global flow metric numbers. 

Next the interim cases where one aspect is high and the other component is 
low. A module with high global flow and low complexity shows poor internal 
structure. This structure will most likely have excessive numbers of procedures 


with extensive use of data structures outside the module. Low global flow with 
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high module complexity implies either poor decomposition into procedures or 


extremely complicated interface. 


H. INTERFACE MEASUREMENTS 

Interface between procedures comprise protocol interface, coupling and 
binding of procedures. Protocol interface from module A to B is defined as those 
procedures that are not in any other module and which receive information from 
A for passing to B. Binding is the sensitivity measure between modules, that is, 
tightly bound modules have a high sensitivity. A tightly bound module is 
difficult to change without adversely affecting the other module. Coupling is the 


strength of binding. Figure 5 depicts the interface structure. 





Figure 5. Interface Structure 
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Protocol interface, since it 1s not symmetrical between procedures, requires 
the construction of a tabular cross reference table with all possible procedures on 
both the X and Y axes. The internals of the table are the data flow complexity 
indexes for one way transmission from each procedure to the other. 

Figure 5 shows that binding is sectioned into five components; the number of 
procedures sending information from A (NSP), the number of procedures 
receiving information from B (NRP), the number of procedures in the protocol 
interface (NPI), the number of paths to the interface from A (SPI), and the 
number of paths from the interface to B (PIR). The Direct Flow paths 
represented as the outer loops are data transmissions without the interim 


procedures. [Ref.2: p.85] lists the binding calculations as follows: 


Binding = (NSP + NPI) * SPI + (NPI + NRP) * PIR 


The term (NSP + NPI) * SPI is the coupling strength. 


All the direct path binding is calculated by 


DF Binding = (NSP + NRP) * DF 


Modules that are tightly bound are extremely difficult to maintain and 
modify. This difficulty stems from their lack of independence and the "ripple 


effect" of changes to one module flowing into the other. 
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I. THEORY SUMMARY 

The purpose of the Henry metric is to provide designers and implementors 
with a method to quantify the quality of the code that they are developing. The 
goal is to produce reliable code that is interconnected in as logical a fashion as 
possible. Information flow complexity produces reliability through enforcement of 
design rules that lead to well connected code. The measurements will point out 
lack of functionality, improper modularization, poorly designed modules, poorly 
designed data structures, system stress points, inadequate refinement, strength of 
binding, modifiability, missing levels of abstraction and. will produce comparative 


indices to assess changes. 
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II. DESIGN CRITERIA 


A. INTRODUCTION 

The design of the implementation of the Henry metric was a two step process. 
First, a thorough understanding of the previous work by Neider and Fairbanks 
[Ref.5: pp.1-164] was undertaken to determine what data were available for 
importation into the Henry metric. The intention of the study and the basic 
design issues are (1) modify the output of the parser portion of their thesis to 
include the necessary data passes to the Henry metric (2) to initially analyze only 
the Ada package as a unit (3) encapsulate as much of the Henry metric into one 
Ada package as possible and (4) calculate the necessary Henry metric numbers 
transparently to the user but present the user with an output that is easily 
understood. 

The underlying premise, of this program, is that the code presented for 
analysis has been successfully compiled. If the code does not compile and is 
presented to the parsers it will most likely fail to parse but in the event it does 
escape detection it will be erroneously analyzed. 

The design criteria of encapsulation of the Henry metric was modified during 
the implementation due to the unwieldy length of the code. The division yielded 
three packages; one that holds all the global data, another for the analysis portion 
and a third for the interface to the user. Although this division violated one of 
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the basic design issues it was necessary in order to achieve solid data transfers 
between the Naval Post Graduate School computer and the Naval Weapons 
Station computers. 

While the level of what was available from the parsers was being determined 
the data structures of the Henry metric were being layed out. The data structures 
and data gathering procedures for the Henry metric were designed to be as simple, 
yet as flexible as possible. Once the layout of the linked list data structure to 
hold the raw information for the Henry metric was decided upon, the tedious 
procedure of inserting the appropriate calls to the Henry package was undertaken. 
Basically, this reduced to exercising all the possible data flow characteristics from 
function or procedure calls that the Henry metric could expect to encounter and 
then ensuring that an appropriate call to the Henry data collection procedure was 
placed in the Neider/Fairbanks parser. 

Next, the analysis procedure was designed. The analysis was separated from 
the display because computers have very different capabilities in their output 
devices. The first package analyzes the collected raw data and the second 
displays the finished, smooth data. 

The program is menu driven. It initially gives the user a choice to parse a 
new program or view old data. If the parse choice is selected the parsers feed 
both the Henry and the Halstead packages with data. After a successful parse the 
user 1s presented with a choice of either viewing the Halstead or Henry metric 


data. This is when the analysis portion of the Henry metric is called. It is not 
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until the user decides which data to view is there a distinction made as to how to 


process the parsed data. This feature was designed for several reasons: 


- Use the Halstead metric to refine the code 
- then analyze the code via the Henry metric for data flow 


- but the user should still have the option to select either metric 

The data for both metrics are essentially different as are the purposes for 
gathering the data but the final goal of this dual metric system is to produce good 
code. 

Finally, the presentation data module was designed. The Halstead and the 
Henry metric both produce numbers which are essentially meaningless unless a 
thorough understanding of the particular metric implementation is undertaken. 
Thus, both metrics, in differing fashions present "help" data to aid understanding 
of the metric output. These files are both verbally and graphically presented to 
the user. 

The overriding design issue was to modularize the Henry metric as much as 
possible. The most significant exception to the Parnas’ ideal [Ref.4: p.330] are the 
numerous calls to the data gathering procedure from the parser modules. These 
calls depend on details of how the data will be analyzed in their sequencing and 
data passing scheme. A conscientious effort was made to minimize global data 


and isolate procedures into nearly stand alone modules. 
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B. SPECIFIC ISSUES 

The housekeeping routines of the global package are used to adjust the parsed 
data into a more palatable form for the analysis and presentation procedures. 
The output from the parser is stored as a linked list of raw data produced by 
procedures WRITE HENRY DATA and CREATE NODE. This data is then 
analyzed by the ANALYSIS PACKAGE for the particular data constructs that 
represent a data flow. The output is an array of tabulated data that is a set of all 
the relations necessary for the Henry metric to detect local and global data flow. 

The display module presents data in a tabular format or as a graphical 
representation for relative merit analysis. The intent was for the user to see the 
effect of changes, or to select a more verbose description of the meaning of the 
results. The modules that accomplish tabular and graphic displays are separated 
again because of the varying capabilities of machines. The purpose of these 
procedures is to provide some form of relative measure to the user so that the 
improvement or results of a change could be more objectively weighed. The 
overall purpose of the display modules is to show the data in such a fashion that 


an intelligent assessment is possible. 


C. DESIGN ISSUES 
Design issues encountered in the implementation of Henry’s metric involve 
the efficient use of the Ada language’s structures and data analysis techniques. 


Sallie Henry developed a metric process in which the constructs of a particular 
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language are ignored or not put to specific use. That is, some languages have 
extremely thorough type and range checking facilities. This is not considered in 
the basic design of her metric. These powerful features are incorporated in Ada 
and provide the application programmer more analysis capability. 

This design issue concerns the collection of ’all possible paths’ data for 
analysis of actual parameters. The approach taken by Henry is biased to a 
language where input, output, and combination input output parameters are 
treated as if they could be modified by the particular procedure regardless of their 
type. Ada is very picky about the manipulation of formal and actual parameters 
and goes to great lengths to ensure that parameter consistency is maintained by 
means of strong type/range checking. The explicit declaration of a parameter 
type was used to select which component of the complexity equation should be 
updated. The appropriate fan-in or fan-out number was also correctly updated 
from default declarations such as the undeclared default formal parameter. 

The data analysis technique issue encountered was the need to analyze the 
data via the IFS. Henry’s IFS was designed so that a traversal of its nodes 
analyzing parent-child pairs will capture all the transitive relational data flows. 
The transitive flow analysis designed into the present parser will account for the 
first two layers. The reasoning behind this approach stems from a program 
review. This review, albeit not extensive, was conducted looking for the 
predominant use of transitive relations. The review revealed that transitivity 1s 


not often used and if used is at most two layers deep. There was little use of deep 
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transitive constructs. Thus, the design approach selected will detect the majority 
of the transitive data flow paths without the need for an extensive tree structure. 
The "normal" program has few transitive relations but the capability to analyze 
this style of program would add more accuracy to the metric. 

Another design anomally of the metric is the problem of detecting the 
difference between a function call outside the package declaration and a global 
data structure manipulation. Ada libraries or packages inhibits the proper 
analysis of a function call as opposed to a data structure read unless a full 
compiler’s output is available. The present metric was designed so that local 
function calls (within the package being analyzed) are properly valued but the 
function calls outside the package are treated as data structure manipulations or 


more specifically as global data flows. 


D. CONCLUSION 

The design and implementation phase was driven by the analysis of the 
Neider/Fairbanks parser portion of their thesis followed by the modularization of 
the Henry metric. The tradeoffs considered were: the strong typing and range 
checking of the Ada language, the need for an information flow tree, the need for 
relative output for the user and, and most importantly the desire to incorporate 


all of the Henry metric into one Ada package. 
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MT DESIGNAND TESTING 


AS THE EMBEDDED CODE 

The previous work done by Neider/Fairbanks had to be modified to output 
the necessary data for the Henry metric. This was accomplished through 
embedding calls to the Write Henry Data procedure in ParserO, Parserl, Parser2, 
Parser3 and Bypass Function (See Appendix C). The writing of the Lexeme, or 
identifier’s name, was controlled by a Boolean that was turned on or off according 
to the position of the parse of a particular package. The design criteria was to 
keep the data gathering as simple as possible. If time permitted, a more thorough 
and sophisticated scheme could be developed. The embedded code was thoroughly 
tested by two test harnesses that simulated a series of Current Token Records in 


the form of an input Ada package. 


B. THE HENRY PACKAGE 

The first package to be implemented was Henry.pkg. It was conceived to bea 
stand-alone construction that would initialize the data collection process, receive 
data from the other parsing packages and store the raw incoming data in a linked 
list. (See Appendix B). Minimal variables and foreign procedures from other 
packages are used. The Henry package’s only "withed" packages are TEXT IO, 


HENRY GLOBAL, HENRY ANALYSIS and HENRY DISPLAY. This 


ol 


approach was considered necessary so that the subsequent changes or upgrades 
would not affect other modules (ripple effect). The design was to implement a 
basic Henry metric first for Ada packages then to improve and more fully develop 
the Henry analysis techniques if time allowed. The Main Menu module sequences 
the user into the analysis and display support packages. The modularization was 
considered necessary because the analysis and display packages are separate 
entities and the separation will ensure maintainability. 

The initialization is conducted by procedure Initialize Henry and the 
declaration statements that assign initial values to various Boolean variables. 
Initialize Henry creates two head nodes, one for the raw data linked list, the other 
for the procedure or function length records. The raw data linked list storage is a 
straight line of Henry records. These records have five fields that identify 
whether this is (1) local or global declaration, (2) the variable/procedure’s name, 
(3) an action class, (4) a parameter class and (5) a pointer to the next record. The 
action class is comprised of various identifiers that range from procedure type to 
end parameters declare. Their purpose is to delineate the actions within the 
parsed program so that the Henry analysis package can look for the data flow. 
The parameter type field is used to define input, output or combination input 
output formal parameters. The variable Henry Line count is purposely initialized 
within this procedure to draw attention to it’s initial value. The array of length 
records is initially a parallel construct not directly tied to the procedure or 


function it holds the data for. In the analysis package a sequential process is 
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produced where the records are linked to the data manipulation array. The 
purpose of the length record is to hold the begin and end line counts of each 
procedure or function. These line counts are used later to compute the specific 
modules length for inclusion in the complexity equation. 

The receipt of incoming data is accomplished’ primarily by 
Write Henry Data. This procedure is supported by a __ boolean 
Write Henry Enable. This boolean turns on or off the recording of the incoming 
records from the Get Current Token Record procedure. Specifically, the boolean 
will allow recording only selected data from the incoming record stream selected 
by the place within the recursive descent parser that the boolean is activated. 
This control is necessary to pick and choose the data that is critical and to ignore 
the remainder. 

The procedures Create Node and Clear Henry Lexeme support the data 
gathering scheme. The "in out" pointers within Create Node serve the purpose of 
allowing a view of the last record in the incoming stream or to work on the 
current record. It is arranged so that New Node points to the newly created 
blank record and Last Record points to the just filled in trailing record. 
Procedure Clear Henry Lexeme is necessary because of the way Ada handles 
strings. Create Line Node procedure functions identically to Create Node. 

The incoming data is chosen from within the Bypass Function and from 
ParserO to Parser4 [Ref.5: pp.102-160] by where the calls to the Write henry data 


procedure is positioned. The purpose of this approach is to assure the Henry 
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metric receives sufficient information but more importantly that the records 
writen into the linked list are delimited in a particular fashion for ease of analysis. 
There is still considerable data that can be collected for analysis from the parsers 
but the Henry metric is not to the stage of development where it would be useful. 
The added depth of information could be used in two areas; analysis and a more 
informative output from both metrics. 

The Write Henry Data procedure selectively enters the field data into the 
raw data linked list records as dictated by the incoming actual parameters. That 
is, the incoming data has default settings but if the data is to be ignored then the 
"null setting" is passed as an actual parameter. This assists in the gathering 
process. The design of the data gathering modules is such that modifications 
could be easily implemented. This was purposely designed into them so that 
upgrades would be fairly painless. 

The Henry.pkg was constructed with modularization and maintainability in 
mind. It was meant to be a stand alone entity that receives data from the 
Neider/Fairbanks Bypass Function and Parser packages. It performs the 
functions of initialization, data receipt and data storage besides defining the data 
structures used throughout the Henry metric packages. There are a number of 
improvements that could be added to the actual parameter analysis. These 
improvements all concern the wealth of options Ada provides in parameter 
passing schemes, such as, aggregates, dot notation to access hidden variables and 


allocators. Further, the present Henry metric does not analyze the incoming 
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actual parameters for expressions but the variables are all considered for inclusion 


in the complexity calculation by the transitivity analysis. 


C. HENRY ANALYSIS PACKAGE 

The Henry Analysis package comprises three procedures to set up the raw 
linked list data and a fourth procedure to actually analyze the code for metric 
calculations. The Analysis procedures are called sequentially from the Henry 
package and function as support for the Henry package. They operate on the 
data in sequential discrete steps. They first determine the formal parameters, 
then search and identify procedures and variables and then determine the metric 
numbers. The approach used was to nibble each piece of the tremendously 
complex data flow calculation down into minute sub-steps until all that is left is 
to simply count the marks on each record for determination of the complexity or 
global flow metric numbers. This approach removed the necessity for an arduous 
single pass calculation. 

The set up procedures are CLEAN UP HENRY DATA, 
oe UP HENRY ARRAY, and SPRUCE UP HENRY DATA. A _ support 
function, LOCAL NAME, assists in the setting-up process. These procedures’ 
end product are two metrics, the complexity metric and the global flow metric. 

The Clean Up procedure ensures that all parameter type records have all 
their fields properly filled. It scans for their parameter lists all the procedures and 


functions that are declared in the analyzed package . The field of most 
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importance is the classification of either "in, out or in-out" type parameters. 
These fields are checked up to the colon delimiter within the formal parameter list 
and then entered into all parameter type records correctly. 

The Set Up procedure scans through the entire linked list setting up another 
array of pointers to facilitate the analysis process. The Henry Array records have 
identifier, beginning pointer and line length record pointer entries. This 
procedure’s purpose is to break up the long linked list into another array. It 
actually does not sub-divide the list it merely arranges an array of pointers into 
the linked list that delineate each function or procedure. The resulting array is 
called the Henry Array. The line length record pointers are records that hold the 
stop and stop line numbers. These records are eventually used to compute 
procedure/function lengths. 

The Spruce Up procedure goes through the Henry array data and sorts out 
the local and global data flow paths. It does this through the use of the 
LOCAL NAME function. This function searches either the Henry array for a 
particular procedure name or the package and appropriate procedure’s declaration 
sections for the variable name in question. Its purpose is to sort out the local 
procedure or function calls from the global data structure manipulations. It 
cannot completely solve this problem but defers final resolution to the Calculation 
procedure. 

The Calculate Metric procedure will again process the Henry array data 


looking for the final resolution to local procedure or function calls as opposed to a 
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global data structure manipulation. It proceeds in small increments to finally 
arrive at the complexity metric calculation and a global data flow calculation. 
The complexity metric number is arrived at by first considering all the in, out, 
in-out formal parameters to calculate the fan-in and fan-out numbers. After the 
initial cut the fan-in, fan-out numbers are incremented upward by the numbers of 
identified procedure actual parameters that feed these formal parameters and then 
by the the Transitivity In and Transitivity Out functions. 

An example of this process would be for procedure A with formal parameters 
X, Y. First process parameters X and Y for their explicit type adding 1 to fan-in 
if its an input parameter or 1 to fan-out if its an output parameter. Next process 
all the assignment expressions looking for a modification of the formal parameter. 
If procedure A modifies parameter X prior to a call to another function increment 
the fan-out count by the number of statements after the assignment delimiter. 
Then go through an analysis of transitivity incrementing fan-in or fan-out 
accordingly. Finally, call up the appropriate record of Henry Line count and 
calculate the length of the procedure or function in question. 


The equation that the process is working toward solving is: 
Complexity = length * (fan-in * fan-out) * *2 


This equation represents the local data flows within the analyzed procedure. 
Sallie Henry set the exponent of the bracketed expression to 2 because of her 


experience with operating system code analysis. This program will continue with 
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this number until enough data can be compiled to support a change. Once this 
calculation is done then the global data flows are analyzed. 

The global flows are arrived at by first eliminating all other possibilities. 
Then the remaining choices have to be foreign data flows. This process is started 
in the Spruce Up procedure and completed within the Metric Calculation 
procedure. The process is used to find whether the data structure is being read 
from or written to or both. 


The equation that the analysis is striving to solve is: 


Global flow = write * (read + read-write) + 
read-write * (read + read-write - 1) 


This equation represents how and by what means the global data structures 
are manipulated. The global data analysis procedure goes across procedure or 
function boundaries whereas the previous complexity metric calculations remain 
within the particular procedure or function under scrutiny. This across- the- 
border calculation is accomplished through the text file that is discussed next. 

Within the calculation procedure the initial entries for the display package 
are started. This amounts to constructing a text file of descriptive terms and 
indices of merit for output in the Display Package. It also provide a temporary 


storage bank for the global data information. This across-boundary analysis of 
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global flows was necessary because of the implications of not being able to detect 
the difference within the Ada code of an access to a data structure or a function 
call to a "withed" package. 

In summary, the Analysis package is a series of analytical steps. The purpose 
of these steps is to arrive at the complexity and global flow metrics. These indices 
and additional data are stored in a text file for output to the user within the 


Display package. 


D. HENRY DISPLAY PACKAGE 

The Henry Display package is the user interface portion of the metric 
program. It provides the user with four different aspects of viewing the analyzed 
data. The purpose of this package is to show the user the data flow 
characteristics of the particular parsed input program. The output data will be 
the fan-in, fan-out, length, complexity, and four global ow numbers. These 
numbers can be presented in a listing format, viewed with a help file of 
informative paragraphs or compared by means of the other portions of the 
analyzed package to gain a relative sense of merit. 

The procedures that comprise the Display package are 
LIST METRIC DATA and Crt iene rad iy DATA and 
GRAPH RELATIVE. The LIST METRIC DATA procedure will output the 
data file compiled while in the calculation portion of the previously discussed 


package. It will be a straight listing of information that will be grouped by each 
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element in the calculation of the complexity or global flow numbers, such as all 
procedures are grouped under the head of FAN-IN. The purpose of this listing is 
to show each procedure or functions component figure in the calculation of the 
final complexity and global figures. If the programmer is in a compile, test, edit, 
recompile mode of operation this will provide a spotlight on where to improve the 
data flow "choke- points". These data flow critical points will be seen as either 
high global flow or high complexity numbers. In short, the 
LIST METRIC DATA is designed for a more sophisticated programmer wishing 
to edit-and-run and see the results of particular programming style changes. 

The WRITE RELATIVE DATA display will provide the same format of 
data but the numbers will have been normalized. Accompanying each number set 
will be a short narrative keyed to the relationships of the particular numbers. 
That is. if the user sees a complexity number of 125 beside the procedure X he 
will be provided with an explanation that that number is not too far out of line in 
comparison to the other procedures or functions analyzed within this package. 
The purpose of this approach is to normalize the output numbers to provide a 
relative comparison for a more user friendly approach to the mysterious metric 
number generation. 

There is an additional procedure within the Display package that provides a 
complete listing of the raw input data. This procedure will most likely be of no 
use to anyone except those programmers who are extremely interested in the 


factors that lead to the particular numbers presented. 
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The final package for viewing the data is the graphical presentation module. 
It takes the relative data and manipulates the floating point numbers to achieve a 
bar chart display. 

In summary, the Display package will provide the user with information in a 
variety of formats so that he can reach a conclusion from relative merit or 
absolute input numbers. The data flow numbers will point out the critical data 
flow points within a procedure so that the programmer can better see where to 
improve or expend the most effort. The purpose of the output data is to show the 


user where to improve, not how to improve. 


E. TESTING 

The testing of the design was conducted as the modules were being built and 
at the integration step prior to the final product. This was accomplished through 
the use of test harnesses that simulated the particular module’s inputs and 
through test input programs that were hand analyzed to verify the metrics 
outputs. 

The testing of the Henry package was accomplished by gradually building a 
more thorough test harness as each previous test was successful. The final test 
harness encompassed over 200 input records that simulated a myriad of token 
record inputs. The testing of the Henry module presented some difficulty because 
it is so intimately tied to the parsers. This was overcome by simulating the 


Bypass Support package as a partial input and the test harness as the balance of 
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the test vehicle. The package performed well within the test harness and 
functions adequately within the context of the entire program. 

The testing of the analysis package of the Henry metric again was an iterative 
build of the harness. The testing accomplished after all the Henry metric 
packages were integrated was accomplished on the same group of programs 
provided by the NWC programmers to test the Halstead metric integration. The 
harness testing was comprised of a 50 step program that simulated a package with 
three independent procedures/functions utilized within its scope. There were 
intentional references outside the scope of the test harness package to determine if 
the global call detection scheme functioned properly. In all. the test harness 
exercised every possible data flow scheme analyzable by the Henry metric 
including one that would be a missed call. The analysis package performs 
adequately within the scope of the harness. Testing revealed that the code within 
the analysis phase was non- reentrant which required a the use of a boolean to 
define the status of the call to the package. This boolean will protect the data 
structure and effectively make the code reentrant. 

The display module was tested with the same driver harness as the analysis 
package. The results were used to fine tune the package and to debug the 
problems. The process used was to call the analysis package from the display 
package and drive the display package with the test harness. This is also how the 
integrated program performs. The results were adequate from the stand point of 


the test harness but need some refinement when using the whole program. 
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The summary of testing would be extensive use of complicated test harnesses. 
Since a test harness has to simulate all the inputs to a module that the tested 
code could possibly see during integration, they are difficult to build much less 
debug. The debugging problem comes from the question ‘is it the code or is it the 
harness?’. The test harness approach is quite fruitful from two orientations: (1) it 
forces the programmer into a thoroughly understanding his code and (2) the 
harness construction will lead the programmer into optimizing his code. Why 
doesn’t the programmer already understand his code? He does but the 
ramifications of a certain approach does not come surface until the design of a test 
harness is considered. The optimization is driven by the need to get accurate. fast 
results so that the troubleshoot-repair-compile-troubleshoot regimen can proceed 


fairly rapidly. This is a real concern with the tremendous 
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IV, CONCEUSIONS 


A. IMPLEMENTATION 

The Henry metric was implemented in as modularized a fashion as possible. 
The intent was to allow for improvements through a more thorough use of the 
parser’s information in AdaMeasure’s first revision. Also, certain aspects of the 
Henry metric were not implemented, but it is now felt that they would add depth 
to the analysis process. In particular. the first change should be that the 
Information Flow Structure be added. This tree-like structure will allow the 
analysis of hidden calls but will still not detect the missed call problem discussed 
earlier. The missed call problem will most likely only be solved through the use of 
the Program Counter Register, but this approach defeats the idea of a high level 
language. The final improvement would be to add analysis of the "withed" 
packages so that an interface table could be constructed. 

The program was incorporated into the previous work by Neider and 
Fairbanks. Their work was extensive and deserves favorable mention because it 
made the implementation of the Henry metric considerably easier. The output of 
the program is still in need of sophistication and improvement. In particular, two 
improvements are needed: (1) explaining the theory behind the metric and (2) 
conveying the ideas to the user. For an example, a high global data flow indicates 
an overworked global data structure. What should the metric present to the user? 
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The average programmer might not see the relevance of this and would miss the 


indication that a critical point in the data flow should probably be revised. 


B. THE FUTURE OF METRICS 

Metrics are tools. They point out areas of weakness. The metric will show a 
direction to proceed even in the absence of an absolute answer as to the 
correctness of the analyzed code. 

The importance of metrics will grow as the size of programs grow. We do not 
know how important metrics will become but it does seem clear that there is a 
need for something that helps improve code quality and is fairly painless to use. 
The emphasis on "good" code will continue to be in the forefront of the Armed 
Service's concerns because of their intense involvement in real time embedded 
programs. These programs present a real challenge for incorporation of changes, 
improvements or any other form of maintenance programming. The purpose of 
metrics in this environment would be to point the way to good modularized 
design. 

The metric should be part of the test scenario besides being an integral 
member of the life cycle of the program. The metric will force quality control 
without the painful process of formal inspections. The formal process has its 
place but the metric tool could perform more than the inspection. The metric 
tool should be incorporated into the test cycle as a meter of improvement. This 


immediate feedback to the programmer will be beneficial. The manager could 
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also use the absolute number as a goal for acceptance. This approach will provide 
the manager with the data needed at decision points in the life cycle of a 
program. The absolute number could also be tied to the program throughout its 
life as a measure of improvement or degradation over time. The uses are many, 
as the reader can see. The importance of the metric cannot be overstated when 
the future holds programs that will span millions of lines of code. 

Metrics are important. They hold out the hope of an automated tool that 
will guide, interpret, and assess progress for programmers and management alike. 
I hope that the work of this metric will assist in advancing metrics and the use of 


the Ada language. 
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APPENDIX A: INFORMATION FLOW MECHANISMS 
MECHANISMS FOR INFORMATION FLOW ANALYSIS 


As Sallie Henry so succintly states: 


The information flow analysis takes place in three phases. The first phase 
involves generating a set of relations indicating the flow of information through 
input parameters, output parameters, returned values from functions and data 
structures. 


General Format of a Relation 


The generation of relations is first prefaced with a quick review of relational 
format. 


Week), R2 ...Rcount: 
Where L may be in any one of the following forms: 


lee P.DS P is the name of a procedure and DS the data 
structure. 


bo 


P.O, P is the procedure name and O is the return value. 
oe P.O P is the procedure j} is an integer representing 
the formal parameter position, and O is the jth 
Output parameter. 
fee fy.) P is the procedure, j is an integer representing 
the jth parameter, and I is the jth input 
parameter. 


Ri may be in one of the following forms: 


ie? SDS S is a procedure name and DS is the name of a data 
structure. 
ee A) S is a procedure name and O is the returned value. 


3. S.j.I Sis the procedure name, j is the jth parameter 
and I is the jth input parameter. 

Ae). O S is the procedure name, j 1s an integer 
representing the jth parameter in the list and O 
is the output parameter. 

5. S.null  S is the procedure name, null represents no data 


AZ 


6. S.cons. S is the procedure name and constant a value 
used within S. 
7. S.error S is the procedure name and error represents an 
invalid flow of information through procedure S. 

RULES 

1. Lis of the form P.DS then 
this form is used only to generate the relations from 
procedure P that updates DS with R1. 

2. Lis of the form) © wien 
This is used only in generating the relations from procedure 
P that produce an output. 

3. Lis of the form P.j.O then 
This is used when generating the relations that produce an 
input of the jth parameter in the procedure’s formal 
parameter list. There must be a unique relation for each of 
P’s parameters. 

4. Lis of the form P.j.I then 
This is used when generating the relations for procedure P 
that produce an input for the jth parameter. Another 
procedure T calls P to indicate that the jth parameter of P 
receives the input update. 

5. Riis of the form $.DS then 
Procedure 5 reads information from DS this format is used to 
indicate a read only. 

6. Riis of the form S.O then 
Relations are generated that come from procedure T that are 
return values to T from S. 

7. Riis of the form $.j.I then 
For generating relations for procedure S$ that indicates S’s 
jth input parameter passes information to L. 

8. Riis of the form S.cons. 
Then S causes a constant number or string to flow to L. 

9. Riis of the form S.Null then 
This is used to indicate when 8S does not update a parameter, 
that is. the parameter was strictly input only. 

10. Ri is of the form S.error then 


S calls T and one of the parameters to T is an output only 
thus if S attempts to input a value this would be an error. 
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ANALYSIS OF CALLS 


The following two procedures X and Y, exhibit all possible calling structures 
in the light of information flow analysis. NP stands for not possible, NC for no 
calls and the numbers beneath are used for later reference. 


The pairs 1, 3, 5, 7, 13, and 15 cannot appear in a flow of data path because 
for DS’s the only assignment and reads allowed are from procedures or functions. 
The other not possibles stem from input parameters not flowing into DS’s and not 
flowing into output parameters. Entries 2 and 4 indicate X calling Y, receiving 
information from Y and using this information to update a DS. The rest of the 
possibilities can be reasoned in like manner except entries 10 and 12, which 
represent calls via a third procedure. Here procedure Z calls Y and passes the 
returned value from Y to X. This represents a no call between X and Y but there 
is a data flow. 


TABLE 1. 


| LOCAL CALL TABLE 


Witoo, & Calls Y X calls Y 
4 8 
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All data flows from the highest calling structure, eventually being deposited 
in the data structures. Analysis of the table’s data confirms this premise. 


MEMORYLESS PROCEDURES 


Some procedures keep no record of their data passing or the data supplied. 
These procedures are used to do housekeeping for memory management, for 
example, but their analysis for data flow would produce a false amount of data 
transactions. Another area that these procedures appear in are arithmetic 
operations that are sometimes duplicated in hardware such as double precision 
math etc. This discussion leads to the problem that these procedures would be 
dificult to discern in an automated process. That is, if memoryless procedures are 
not to be considered in data flow analysis some form of human decision making is 
required. It should be noted that this is another premise that the automation of 
the Henry metric is based on. The absolute numbers for the Henry metrics would 


TABLE 2. 
ADS x. XKel Anke) 
Yaos NP NP Y flows X NP 
if > 7 {3 


Y,0 Y flows X Y flaws X Y flows X Y flows X 


e 6 1@ 14 
YKI NP NP Y flows X NP 
3 iz 11 iS 


Y.K.0 Y flows X Y flows X Y flows X Y flows X 
4 S 12 id 


00 


be inflated if memoryless procedures are not eliminated from the analysis. In 
short a memoryless procedure should be removed from the code to be analyzed if 
a more accurate assessment or if the absolute numbers produced are being used 
for a comparative study. 
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APPENDIX B: HENRY METRIC CODE 
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-- TITLE: AN ADA SOFTWARE METRIC 

-- MODULE NAME: PACKAGE HENRY GLOBAL 
- DATE CREATED: 09 MAY 87 

-- LAST MODIFIED: 19 MAY 87 


-- AUTHOR: LCDR PAUL M. HERZIG 


-- DESCRIPTION: This package contains the data declarations 


-- and basic procedures used throughout the Henry metric. 
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with GLOBAL, TEXT IO; 
use GLOBAL, TEXT IO; 


package HENRY GLOBAL is 


package INTEGER IO is new TEXT IO.INTEGER IO(INTEGER); 
use INTEGER 10; 


package REAL IO is new TEXT IO.FLOAT IO(FLOAT); 
use REAL I[O; 


--Real IO produces floating point output 


MAX ARRAY SIZE : constant integer := 50; 
MAX LINE SIZE : constant integer := 76; 

DUMMY9s : constant integer := 9999; 
NULL CHAR : constant character :=’”’ 


--DUMMY9s are used for false data input to the line length calculations 
type DECLARED TYPEis (BLANK, LOCAL DECLARE, GLOBAL DECLARE); 


type ACTION TYPE is (UNDEFINED, 
HENRY HEAD NODE, 
PACKAGE TYPE, 
PROCEDURE TYPE, 
FUNCTION TYPE, 
PARAM TYPE, 
ASSIGN TYPE, 
IDENT TYPE, 
DATA STRUCTURE, 
FUNCALL OR DS, 
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PROCALL OR DS, 

END PARAM DECLARE, 
END ACTUAL PARAM, 
END DECLARATIONS, 
END ASSIGN TYPE, 

END PACKAGE DECLARE, 
END PACKAGE TYPE, 
END FUNCTION TYPE, 
END PROCEDURE CALL); 


type PARAM CLASS is (NONE, IN TYPE, OUT TYPE, IN OUT TYPE, 
ACTUAL _PARAM); 
subtype FORMAL PARAM CLASS is PARAM CLASS range IN TYPE..IN OUT TYPE; 
subtype LEXEME TYPE is string (1.. MAX _LINE _SIZE); 
subtype END _UNITS is ACTION TYPE range 
END FUNCTION TU PE..END PROCEDURE CALL; 


--Declared, action and parameter classes or types are used 
--in the Henry record data collection process 


type HENRY RECORD; 

type POINTER is access HENRY RECORD; 

type HENRY RECORD is record 
IDENTITY :DECLARED TYPE; 
NOMEN : LEXEME TYPE: 
TYPE DEFINE : ACTION TYPE; 
PARAM TYPE : PARAM CLASS; 
NEXT1 : POINTER; 


end record; 


--Henry record is the workhorse storage medium 


type HENRY LINE COUNT RECORD; 
type LINE POINTER is access HENRY LINE COUNT _RECORD; 
type HENRY LINE _COUNT RECORD is record 


ID NAME : LEXEME TYPE; 
START COUNT : INTEGER: 
STOP COUNT - INTEGER; 
NEXT REC : LINE POINTER; 


end record; 


--Henry line count record is used to claculate the length of procedures 
--or functions 


type HENRY DATA is record 

NAME OF DATA 7 LEXEME “FY PE; 
BEGIN POINTER : POINTER; 

LINE LENGTH POINTER >: LINE POINTER; 


end record; 


--Henry data records are used to delineate the functions and procedures 
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--for easier data calculations 
type HENRY DATA ARRAY is array (1.MAX ARRAY SIZE) of HENRY DATA; 


type OUTPUT DATA is record 
TYPE OF  : ACTION TYPP := UNDEFINED: 
NAME OF : LEXEME TYPE; 
TYPE FAN IN _ : FLOAT := 0.0; 
TYPE FAN OUT : FLOAT := 0.0; 
TYPE COMPLEXITY : FLOAT := 0.0; 


TYPE READ : FLOAT := 0.0; 

TYPE WRITE : FLOAT := 0.0; 

TYPE READ WRITE : FLOAT := 0.0; 

TYPE FLOW _ : FLOAT :=0.0; 

CODE LENGTH ~ : INTEGER := 0; 
end record; 


--Output data records hold the final calculation numbers for storage into 
--an output/input file 


type OUTPUT ARRAY is array (1. MAX ARRAY SIZE) of OUTPUT DATA: 


NEXT HEN, LAST RECORD, NEW RECORD, 


HEAD, NAME POINTER -: POINTER; 

HENRY ARRAY : HENRY DATA ARRAY: 

HENRY LINE COUNT - integer := 0; 

OUT PUT DATA : OUTPUT ARRAY; 

LINE COUNT RECORD : HENRY LINE COUNT RECORD, 


HEAD LINE, NEXT LINE, LAST LINE : LINE POINTER; 
PACKAGE BODY DECLARE, 

ASSIGN MARKER, 

GLOBAL MARKER, 

NAME TAIL SET, 

ASSIGN STATEMENT, 

FUNCTION PARAM DECLARE, 


FORMAL PARAM DECLARE : BOOLEAN := FALSE; 
FIRST HENRY CALL : BOOLEAN := TRUE; 
DUMMY LEXEME : LEXEME TYPE; 


procedure CREATE NODE(NEW NODE, LAST RECORD : in out POINTER); 
procedure CREATE LINE COUNT NODE(NEXT LINE, 
LAST LINE : in out LINE POINTER); 
procedure INITIALIZE HENRY(HEAD : in out POINTER; 
HEAD LINE: in out LINE POINTER); 


procedure CLEAR HENRY LEXEME(HENRY LEXEME - : in out LEXEME TYPE); 


end HENRY GLOBAL: 
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--procedure creates Henry record nodes for data storage 
procedure CREATE NODE(NEW NODE, LAST RECORD : in out POINTER) is 


PEP POINTER « POINTER; 


begin 
put(result file, "in create henry node"); new line(result file); 
TEMP POINTER = new HENRY RECORD; 


TEMP POINTER.IDENTITY := BLANK; 
for lin 1..MAX LINE SIZE loop 

TEMP POINTER.NOMEN(I) := NULL CHAR; 
end loop; 7 

TEMP POINTER.TYPE DEFINE := UNDEFINED; 
TEMP POINTER.PARAM TYPE := NONE; 


NEW NODE.NEXT1 := TEMP POINTER; 
LAST RECORD = NEW NODE: 
NEW NODE := TEMP POINTER; 


end CREATE NODE; 
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--creates line count nodes to hold the length data for each procedure or 
--function 


procedure CREATE LINE COUNT NODE(NEXT LINE, 
LAST LINE: in out LINE POINTER) is 


TEMP POINTER : LINE POINTER; 


begin 
put(result file, "in henry create line node"); new line(result file); 
TEMP POINTER := new HENRY LINE COUNT RECORD; 
for lin 1..MAX LINE SIZE loop 
TEMP POINTER.ID NAME(I) := NULL CHAR; 
end loop; 
TEMP POINTER.START COUNT := DUMMY$9s; 
TEMP POINTER.STOP COUNT := DUMMY$9s; 


NEXT LINE.NEXT REC — := TEMP POINTER; 
LAST LINE .= NEXT LINE; 
NEXT LINE := TEMP POINTER; 


end CREATE LINE COUNT NODE; 


--sets all of the variables to their initial values besides 
--creating the first Henry record and line count record 


procedure INITIALIZE HENRY(HEAD >in out POINTER; 
HEAD LINE: in out LINE POINTER) is 
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HEAD STRING : STRING(1..9) := "HEAD NODE"; 
SIZE : INTEGER := 9; 


begin 
CREATE(HENRY FILE, out files HENRY FILE NAME); 
put(HENRY _ FILE, "in INITIALIZE HENRY"); new line( HENRY FILE); 
CREATE(HENRY OUT, out file. HENRY OUT NAME); 
HEAD :-= new HENRY RECORD; 
HEAD.NOMEN(1..SIZE) := HEAD STRING; 
HEAD.IDENTITY | SDUANK. 
HEAD.TYPE DEFINE := HENRY HEAD NODE; 
HEAD.PARAM TYPE =O Nts, 
NEXT HEN = HEAD: 
CREATE NODE(NEXT HEN, LAST RECORD); 
HENRY LINE COUNT © := 0; 
DUMMY LEXEME(1) := NULL CHAR; 
HEAD LINE := new HENRY LINE COUNT RECORD; 
HEAD LINE. ID NAME(1..SIZE) := HEAD STRING; 
HEAD LINESTART COUNT := DUMMYg9s; 
HEAD LINE.STOP "COUNT := DUMMY9s; 
NEXT LINE = HEADSEINE: 
CREATE LINE COUNT “NODE(NEXT LINE, LAST LINE); 
end INITIALIZE HENRY; 


--clears the input string to null characters 

procedure CLEAR HENRY LEXEME(HENRY LEXEME: in out LEXEME TYPE) is 
begin 

put( HENRY FILE, "IN CLEAR HENRY LEXEME"); NEW LINE(HENRY FILE); 
FOR Tin 1 ..MAX LINE SIZE loop 

HENRY LEXEME(I) := NULL CHAR; 

end loop; 

END CLEAR HENRY LEXEME; 


END HENRY GLOBAL; 
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=-7 HI TEE: AN ADA SOFTWARE METRIC 

-- MODULE NAME: PACKAGE HENRY METRIC 
-- DATE CREATED: 06 APR 87 

-- LAST MODIFIED: 15 MAY 87 


-- AUTHORS: LCDR PAUL M. HERZIG 
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-- DESCRIPTION: This package contains the Henry metric data 


-- collection and program control routines. 
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with GLOBAL, HENRY GLOBAL, HENRY ANALYSIS, HENRY DISPLAY, TEXT 10; 
use GLOBAL, HENRY _GLOBAL, HENRY _ANALYSIS, HENRY DISPLAY, PAT aC: 


package HENRY is 


procedure WRITE HENRY _DATA(ID >in DECLARED TYPE := BLANK; 
IN NAME: in LEXEME TYPE := DUMMY LEXEME; 
DEFINE : in ACTION TYPE := UNDEFINED; 
PARAM :in PARAM CLASS := NONE; 
LINK  : in POINTER), 


procedure UPDATE LINE COUNT; 


procedure WRITE LINE COUNT(IN NAME: in LEXEME TYPE:= DUMMY LEXEME; 
FIRST COUNT : in INTEGER := = DUMMY$9s; 
LAST COUNT : in INTEGER := DUMMY$%9s; 
PTR >in LINE POINTER); 

end HENRY; 


seem ee eee ee es Oe ee ee ewww ewe et oO Oe ew Oe SB ew OBZ ew eee ee wee ee Beer ee ee e2ee2 2844 


--produces the written data records from the parser inputs 
--data is only written if it is something other than the 
--null settings 


procedure WRITE HENRY DATA(ID _ : in DECLARED TYPE := BLANK; 
IN NAME: in LEXEME TYPE:= DUMMY LEXEME; 
DEFINE : in ACTION TYPE := UNDEFINED; 
PARAM : in PARAM CLASS := NONE; 
LINK: in POINTER) IS 


begin 
put(result file, "in write henry data"); new_line(result_file); 
If ID /= BLANK then 


LINK.IDENTITY  := ID; 
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case ID 1s 
when LOCAL DECLARE => put(RESULT FILE, "Local declare"); 
when GLOBAL DECLARE => put(RESULT | FILE, "Global declare"); 


when others => put(RESULT FILE, "Undeclared"); 
end case; 
else put(RESULT FILE, "NO DECLARATION"); 


end if; 
new line(RESULT FILE); 
If IN NAME(1i) /= NULL CHAR then 
LINK.NOMEN(1..MAX LINE SIZE) := IN NAME(1..MAX LINE SIZE); 
PUT(RESULT FILE, IN NAME); 
ELSE PUT(RESULT FILE, "NO NAME"); 
end if; 
new line(RESULT FILE); 
If DEFINE /= UNDEFINED then 
LINK.TYPE DEFINE := DEFINE; 
case DEFINE is 
when UNDEFINED => put(RESULT FILE, "Undefined"); 
when HENRY HEAD NODE => put(RESULT FILE, "Henry Head Node"); 
when PACKAGE TYPE => put(RESULT | FILE, "Package declaration"); 
when PROCEDURE TYPE => put(RESULT_ FILE, "Procedure declaration"); 
when FUNCTION TYPE => put(RESULT FILE, "Function declaration"); 


when PARAM TYPE — put(RESULT FILE, "Parameter declaration"); 
when ASSIGN TYPE => put(RESULT FILE, "Assignment delimiter"); 
when IDENT TYPE => put(RESULT FILE, "Identifier"); 


when DATA STRUCTURE “=e put(RESULT FILE, "Data structure descriptor"); 

when FUNCALL OR DS => put(RESULT FILE, "Function or data descriptor"); 

when PROCALL OR DS => put(RESULT FILE, "Procedure or data descriptor"); 

when END PARAM DECLARE => put(RESULT FILE, "End parameter delimiter"); 

when END ACTUAL PARAM => put(RESULT | FILE, "End actual parameter delimiter"); 
when END _DECLARATIONS => put(RESULT | FILE, "End declaration delimiter"); 

when END ASSIGN _TYPE => put(RESULT FILE, "End assignment statement delimiter"); 
when END PACKAGE DECLARE => put(RESULT FILE, "End package declaration delimiter"); 
when END PACKAGE TYPE => put(RESULT FILE, "End package delimiter"); 

when END FUNCTION TYPE => put(RESULT FILE, "End function delimiter"); 

when END PROCEDURE CALL => put(RESULT | FILE, "End procedure delimiter"); 


when others ee put(RESULT_ FILE, "Unknown"); 
end case; 
new line(RESULT FILE); 

end if; 


If PARAM /= NONE then 
LINK.PARAM TYPE := PARAM; 
CASE PARAM IS 
WHEN IN TYPE => PUT(RESULT FILE, "IN PARAM"); 
WHEN OUT TYPE => PUT(RESULT FILE, "OUT PARAM"); 
WHEN IN OUT TYPE => PUT(RESULT FILE, "IN OUT PARAM"); 
WHEN OTHERS => PUI(RESULE PILE ONE). 

END CASE; - 

end if: 

new line(RESULT FILE); 

end WRITE HENRY DATA; 
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--increments the line count for eventual inclusion into 
--the calculation of a particular procedures total length 
--the length number is used in the complexity calculation 


procedure UPDATE LINE COUNT is 


begin 

put(result file, "in update line count"); new line(result file); 
if not FORMAL PARAM DECLARE then 7 
HENRY LINE COUNT := HENRY LINE COUNT + 1; 
end if, is 

end UPDATE LINE COUNT; 
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--produces the records to hold the line count information 
--the records are not initially tied to a particular procedure 
--but are a parallel data structure until in the Hen anal.pkg 
--where they are linked to the procedure that they hold the 
--data for 


procedure WRITE LINE COUNT(IN NAME: in LEXEME TYPE:= DUMMY LEXEME: 
FIRST COUNT : in INTEGER := DUMMY9s: 
LAST COUNT : in INTEGER := DUMMY9s; 


fe >in LINE POINTER) IS 


begin 
put(HENRY FILE, "in WRITE LINE COUNT"); new line(HENRY FILE); 
put(result file, "in write line count"); new line(result file); 


If IN NAME(1) /= NULL CHAR then 


PTR.ID NAME(1..MAX LINE SIZE) := IN NAME; end if; 
If FIRST COUNT /= DUMMY%9s then PTR.START COUNT := FIRST COUNT; end if; 
If LAST COUNT /= DUMMY9s then PTR.STOP COUNT := LAST COUNT; end if; 


end WRITE LINE COUNT; 


end HENRY; 
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-- TITLE: AN ADA SOFTWARE METRIC 


-- MODULE NAME: PACKAGE HENRY ANALYSIS 
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- DATE CREATED. 20° ARiaas 
-- LAST MODIFIED: 29 MAY 87 


-- AUTHOR: LCDR PAUL M. HERZIG 


-- DESCRIPTION: This package contains the analysis functions 
-- required to identify each data flow in the Henry metric. 
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with GLOBAL, GLOBAL PARSER, BYPASS SUPPORT FUNCTIONS, HENRY GLOBAL, TEX’ 
use GLOBAL, GLOBAL PARSER, BYPASS SUPPORT FUNCTIONS, HENRY GLOBAL, TEX1 


package HENRY ANALYSIS is 


package NEW INTEGER IO is new TEXT IO.INTEGER [O(integer); 
use NEW _INTEGER mer 


package REAL IO is new TEXT IO.FLOAT [O(float); 
use REAL IO; 


PROC FUNC COUNT : INTEGER := 0; 
INDEX : INTEGER; 
NAME POINTER: POINTER; 


--PROC FUNC COUNT is the total number of procedures and functions in the 


--analyzed package 


type SELECTOR TYPE is (PROCEDURE FIND, FUNCTION FIND, 
VARIABLE SEINE) 
procedure CLEAN UP HENRY DATA(HEAD: in POINTER); 
procedure SET UP HENRY _ARRAY(HEAD : in POINTER; 
~HEAD LINE >in LINE POINTER); 


procedure SPRUCE UP HENRY DATA; 
function LOCAL _NAME(NAME | POINTER - : in POINTER; 
SELECTOR >in SELECTOR TYPE; 
INDEX >in INTEGER ) 
return BOOLEAN; 
function CALCULATE LINE COUNT(WORK LINE: LINE POINTER) 
return INTEGER; 
function FIND STRING SIZE(IN STRING : LEXEME TYPE) RETURN INTEGER; 
function TRANSITIVITY IN(IN | NAME : LEXEME TYPE; 
BEGIN LOOP, “STOP _LOOP : POINTER) 
RETURN FLOAT; 
function TRANSITIVITY OUT(IN NAME: LEXEME TYPE; 
TOP : POINTER) 
RETURN FLOAT; 
procedure CALCULATE METRIC(HEAD :in POINTER; 
HEAD LINE : in LINE POINTER); 
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end HENRY ANALYSIS; 
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--starts the process of setting up the raw Henry records into 
--decipherable data, it also counts the numbers of procedures 
--functions and fills in empty parameter type fields in the 
--Henry records 


procedure CLEAN UP HENRY DATA(HEAD : IN POINTER) is 
TEMP, TOP, BOTTOM : POINTER; 


begin 
put(HENRY FILE, "in CLEAN UP HENRY"); new line( HENRY FILE); 
CLEARSCREEN; 
put("Processing Henry data records ... please wait"); 
OP ‘— HEAD: 
mOLTOM :="TOP.NEXTI; 


-- move past package declarations 


LOOP 
EXIT WHEN TOP.TYPE DEFINE = END PACKAGE DECLARE; 
TOP :=BOTTOM;, _ 7 7 
BOTTOM := TOP.NEXTI: 

END LOOP: 


--count the number of procedures/functions 


LOO 
EXIT WHEN BOTTOM.TYPE DEFINE = END PACKAGE TYPE; 
if (BOTTOM.TYPE DEFINE = PROCEDURE TYPE) or 
(BOTTOM.TYPE DEFINE = FUNCTION TYPE) then 
EROC FUNG COUNT <= PROC FUNC COUNT + 1, 
end if; 


TEMP := BOTTOM; 
BOTTOM := TEMP.NEXTI; 


end loop; 


BOTTOM := TOP; 
--ensure all parameter records have a type defined 


FOR I in 1..PROC FUNC COUNT LOOP 
LOOP 
EXIT WHEN (TOP.TYPE DEFINE = PROCEDURE TYPE) OR 
(TOP.TYPE DEFINE = FUNCTION TYPE); 
TOP := BOTTOM.NEXTI; 
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BOTTOM: —-1 Or 
END LOOP; 
TEMP := TOP.NEXT1, 
if TEMP.TYPE DEFINE = PARAM TYPE AND 
TOP.TYPE DEFINE /= FUNCTION TYPE then 
LOOP - 
EXIT WHEN TEMP.TYPE DEFINE = END PARAM DECLARE; 
if TEMP.PARAM TYPE NOT IN FORMAL PARAM CLASS THEN 
LOOP 
EXIT WHEN (TEMP.PARAM TYPE = IN TYPE) OR 
(TEMP.PARAM TYPE = OUT _ TYPE) OR 
(TEMP.PARAM TYPE = IN OUT TYPE); 
BOTTOM := TEMP; 
TEMP := BOTTOM.NEXT1; 
END LOOP; 
BOTTOM := TEMP; 
TEMPE; — TOPE rir 
TOP Ge] Ene. 
LOOP 
EXIT WHEN (TOP.PARAM TYPE = IN TYPE) OR 
(TOP.PARAM TYPE = OUT TYPE) OR 
(TOP.PARAM TYPE = IN OUT TYPE); 
TEMP.PARAM TYPE := BOTTOM.PARAM TYPE; 
TEMP. := TOP.NEXT1; 
TOP := TEMP; 


END LOOP. 
else 
TOP -— TEE: 
BOTTOM := TEMP; 
end if; 
TEMP = TOP NES 
END LOOP; 


--functions usually invoke the default in type parameter 
--insert this type if it is not defined 


elsif TOP.TYPE DEFINE = FUNCTION TYPE THEN 
if TEMP.TYPE DEFINE = PARAM TYPE THEN 
LOOP 7 
EXIT WHEN TEMP.TYPE DEFINE = END PARAM DECLARE; 
TEMP.PARAM TYPE := IN TYPE; 
TEMP := BOTTOM.NEXTI, 
BOTTOM := TEMP: 
END LOOP: 
end if; 
end if; 
TOP := BOTTOM.NEXTI: 
BOTTOM := TOP: 
END LOOP; --FOR LOOP 
end CLEAN UP HENRY DATA; 


--sets up the Henry data records to mark the beginning of each 
--function or procedure, it also ties the procedure line length 
--records to its proper procedure/function 


procedure SET UP HENRY ARRAY(HEAD :in POINTER; 
~HEAD SGINE :in LINE POINTER) is 


WORK LINE, TEMP LINE: LINE POINTER; 
TEMP, TOP, BOTTOM : POINTER; 


begin 

put(HENRY FILE, "in SET UP_ HENRY"); new line(HENRY FILE); 
WORK ne = HEAD _LINE. NEXT REC; 

TEMP LINE := WORK | eUINE: 

BOTTOM := HEAD: 

Lor := BOTTOM: 


--GO PAST DECLARATIONS 


LOOP 
EXIT WHEN TOP.TYPE DEFINE = END PACKAGE DECLARE; 
TOP := BOTTOM.NEXT]!; 
BOTTOM := TOP; 

END LOOP; 


--set up the Henry array records so that their pointers are at the 
--top of each procedure or function 


BOR Tin 1..PROC FUNC COUNT LOOP 
LOOP 
EXIT WHEN (TOP.TYPE DEFINE = PROCEDURE TYPE) OR 
(TOP.TYPE DEFINE = FUNCTION TYPE); 
TOP := BOTTOM.NEXTI; 
BOTTOM := TOP; 
END LOOP: 
HENRY ARRAY(I).NAME OF DATA(1..MAX LINE SIZE) := 
TOP.NOMEN(1. MAX LINE _SIZE); 
HENRY ARRAY{(I).BEGIN POINTER : = TOR 
LOOP 


EXIT WHEN (BOTTOM.TYPE DEFINE = END FUNCTION TYPE) OR 


ee TYPE DEFINE = END PROCEDURE CALL); 
TEMP := BOTTOM.NEXTI; 
BOTTOM := TEMP; 
END LOOP; 


--set the line count records to their related procedure/function 


TOP = BOTTOM.NEXTI: 

BOTTOM := TOP; 

HENRY ARRAY(I).LINE LENGTH POINTER := WORK LINE; 
WORK LINE := TEMP LINE.NEXT _REC; 

TEMP JWI: = WORK _LINE; 
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END LOOP; --FOR LOOP 
end SET UP HENRY ARRAY; 
--this procedure calculates the length of each procedure/function 
--the results are fed into line length records 


function CALCULATE LINE COUNT(WORK LINE LINE POINTER) 
return INTEGER is 


DIFFERENCE : INTEGER := 0: 
. INTEGER; 


begin 
put(HENRY FILE, "in CALCULATE LINE COUNT"); new line(HENRY FILE); 
DIFFERENCE := WORK LINE.STOP COUNT - WORK LINE.START COUNT; 
RETURN (DIFFERENCE); 

end CALCULATE LINE COUNT; 

--this function searches for local, within a procedure, and global-local, 

--within a package, for variable name matches 

--it is selectable for which name the search is conducted 


function LOCAL NAME(NAME POINTER : in POINTER; 
SELECTOR >in SELECTOR TYPE; 
INDEX : in INTEGER ) 
return BOOLEAN is 


NAME SOUGHT, POINTER NAME : LEXEME TYPE; 
NAME SIZE, POINTER SIZE: INTEGER := MAX _LINE SIZE; 


RESULT : BOOLEAN := FALSE: 
TEMP, TEMP! : POINTER; 

] -INTEGER =a: 

begin 


put(HENRY FILE, "in LOCAL NAME"); new line(HENRY FILE); 
NAME SOUGHT(1..NAME SIZE) := NAME POINTER.NOMEN(1..NAME SIZE); 
CONVERT UPPER CASE(NAME SOUGHT, NAME SIZE); 


if ((SELECTOR = PROCEDURE FIND) OR (SELECTOR = FUNCTION FIND)) 
AND (PROC FUNC COUNT /= 0) then 
LOOP 
POINTER NAME(1..POINTER SIZE) := 
HENRY ARRAY(I).NAME OF DATA(1..POINTER SIZE); 
CONVERT UPPER _CASE(POINTER _ NAME, POINTER SIZE); 
RESULL-— = (NAME SeOUG Hla: NAME _SIZE) = 
POINTER NAME(1..POINTER SIZE)); 
EXIT WHEN (1 = PROC FUNC COUNT) OR (RESULT); 
]2= Tp ? 7 
END LOOP; 
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--if it is a variable name search first within the package 
--declarations, next within the procedure declarations 


elsif SELECTOR = VARIABLE FIND then 
TEMP := HEAD.NEXT1; 
LOOP 
EXIT WHEN (TEMP.TYPE DEFINE = END PACKAGE DECLARE) OR 
(RESULT); 
if TEMP.TYPE DEFINE = IDENT TYPE then 
POINTER NAME(1..POINTER SIZE) := TEMP.NOMEN(1..POINTER SIZE); 
CONVERT UPPER CASE(POINTER NAME, POINTER SIZE); 
RESULT := (NAME SOUGHT(1..NAME SIZE) = 
POINTER NAME(1..POINTER SIZE)); 
end if. 
TEMP1 := TEMP.NEXT1; 
TEMP := TEMP1:; 
END LOOP; 


--did not find the variable within the package declarations 
--search the specified procedures declarations 


if NOT RESULT then 
TEMP := HENRY ARRAY(INDEX).BEGIN POINTER; 
LOOP” -- DID NOT FIND NAME IN PACKAGE DECLARATIONS 
EXIT WHEN (TEMP.TYPE DEFINE = END DECLARATIONS) OR 
(RESULT); 
if TEMP.TYPE DEFINE = IDENT TYPE then 
POINTER NAME(1..POINTER SIZE) := 
TEMP.NOMEN(1..POINTER SIZE); 
CONVERT UPPER CASE(POINTER NAME, POINTER SIZE); 
RESULT : = (NAME SOUGT ET NAME SIZE) = 
POINTER NAME(1..POINTER SIZE)); 
end if; 
EEMP) -= TEMP.NEXT 1, 
BEMP := TEMP; 
END LOOP; 
end if; 
end if; 
RETURN (RESULT); 
end LOCAL NAME; 


--finishes polishing the Henry records, the data can now be analyzed 
--for local/global data and starts the actual number crunching 


procedure SPRUCE UP HENRY DATA is 
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TEMP, TEMPE LEME? FOUN Tin. 


begin 
put(HENRY FILE, "in SPRUCE UP HENRY"); new line(HENRY FILE); 
FOR I in 1..PROC FUNC COUNT LOOP 
TEMP! := HENRY ARRAY{(I).BEGIN POINTER; 


--loop past parameters 


LOOP 
EXIT WHEN TEMP1.TYPE DEFINE = END DECLARATIONS; 
TEMP2 := TEMP1.NEXTI1; 
TEMP: = TENE? 

END LOOP; 

TEMP = TEMPVNEX Tr 


--first analyze identifier types (variables) for local or global 
--significance. Update the record if it is not local 


LOOP --LOOK FOR IDENT TYPES 
EXIT WHEN (TEMP.TYPE DEFINE = END FUNCTION TYPE) OR 
(TEMP.TYPE DEFINE = END PROCEDURE CALL); 
if TEMP.TYPE DEFINE = IDENT TYPE then 
if TEMP.IDENTITY = BLANK then 
if LOCAL NAME(TEMP, VARIABLE FIND, I) then 
TEMP.IDENTITY := LOCAL DECLARE; 
else TEMP.IDENTITY := GLOBAL DECLARE, 
end if; 
end if; 
end if; 
TEMP! := TEMP.NEXT1; 
TEMP >= TEE EE 


END LOOP; 
--now go through the Henry records looking for unresolved 


--procedure or function calls update the Henry records 
--to reflect procedure types or function types or data structures 


TEMP! := HENRY ARRAY(I).BEGIN POINTER; 
TEMP := TEMP1.NEXT1; 


--get past declarations 


LOOP 
EXIT WHEN TEMP.TYPE DEFINE = END DECLARATIONS; 
TEMP! := TEMP.NEXT1: 7 
TEMP := TEMPI1: 

END LOOP: 
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--looking for procedure or function calls 


LOOP 
EXIT WHEN (TEMP.TYPE DEFINE = END FUNCTION TYPE) OR 
(TEMP.TYPE DEFINE = END PROCEDURE CALL); 


if TEMP.TYPE DEFINE = PROCALL OR DS then 
TEMP!1 := TEMP; a 
LOOP -- MOVE PAST THE PARAMETERS 
EXIT WHEN TEMP1.TYPE DEFINE = END ACTUAL PARAM; 
TEMP2 := TEMP1:; . 7 
TEMPi= TEMP2 NEXT I. 
END LOOP: 
if (LOCAL _NAME(TEMP, PROCEDURE FIND, J)) then 
TEMP.TYPE DEFINE := PROCEDURE TYPE; 
else 
TEMP2 := TEMP1.NEXT1; 
if TEMP2.TYPE DEFINE = ASSIGN TYPE then 
TEMP.TYPE DEFINE := DATA STRUCTURE; 
--IF NOT IT IS A PROCEDURE CALL ONLY 
TEMP! := TEMP2.NEXTI1; 
LOOP 
EXIT WHEN TEMP1.TYPE DEFINE = END ASSIGN TYPE; 
if (TEMP1.TYPE DEFINE = FUNCALL OR _DS) then 
if NOT LOCAL NAME(TEMP1, EUNCTION SF IND 
then 
TEMP1.TYPE DEFINE := DATA STRUCTURE; 
else TEMP1.TYPE DEFINE := FUNCTION TYPE; 
end if; 
end if; 
TEMP2 := TEMPI, 
TEMP! := TBMP2.NEXT1; 
END LOOP: 
else TEMP.TYPE DEFINE := PROCEDURE TYPE; 
end if; 
end if; 


--only function calls that cannot be resolved into a local name are 
--specified as data structures 


elsif TEMP.TYPE DEFINE = FUNCALL OR DS then 
TEMP1 := TEMP; | 
LOOP --LOOKING FOR FUNCTIONS 
EXIT WHEN TEMP.TYPE DEFINE = END ASSIGN TYPE; 
if TEMP.TYPE DEFINE = FUNCALL OR_DS then 
if (LOCAL NAME(TEMP, FUNCTION FIND, ])) 
then 
TEMP.TYPE DEFINE := FUNCTION TYPE; 
else TEMP.TYPE DEFINE := DATA STRUCTURE; 
end if; 
end if; 
TEMP! := TEMP.NEXT1, 
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TEMP <= Te sMrr 
END LOOP; 
end if: 
TEMP1 := TEME. 
TEMP 3= TEMPING Ti. 
END LOOP; --PROCALL OR DS LOOP 
END LOOP; -- FOR LOOP 


end SPRUCE UP HENRY DATA: 
--this function only works for Ada language strings that identify 
--a variable 


function FIND STRING SIZE(IN STRING : LEXEME TYPE) RETURN INTEGER 


is 
SIZE - INTEGERS 0. 


BEGIN 
PUT(HENRY FILE, "IN FIND STRING SIZE"); NEW_LINE(HENRY FILE); 
FOR TIN 1.MAX LINE SIZE LOOP 
IF IN STRING(I) /= NULL_CHAR THEN 
SIZE := SIZE + 1; 
END IF; 
END LOOP; 
RETURN SIZE; 
END FIND STRING SIZE; 


--transitivity is detected by searching the right hand side of 
--assignment statements for a name match of the actual 
--parameters from a function or procedure call 


function TRANSITIVITY IN(IN NAME : LEXEME TYPE; 
BEGIN LOOP, STOP LOOP : POINTER) 
RETURN FLOAT is 


ASSIGN MARK, 

PROCEDURE MARK : BOOLEAN := FALSE: 
TRANS COUNT : FLOAT := 0.0; 

TEMP, TEMP1_ : POINTER := BEGIN LOOP; 


Th 2 > POINTER; 
MAX : INTEGER := MAX LINE SIZE; 
BEGIN 


--stop loop is determined by where in the parameter list you are 


LOOEr 
EXIT WHEN TEMP = STOP LOOP, 
if TEMP.TYPE DEFINE = ASSIGN TYPE THEN 
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ASSIGN MARK := TRUE; 

elsif TEMP.TYPE DEFINE = END ASSIGN TYPE THEN 
ASSIGN MARK := FALSE; 7 7 

end if; 


--mark whether you’ve passed an assignment 


if (TEMP.NOMEN(1..MAX) = IN NAME(1..MAX)) AND 
(NOT ASSIGN MARK) THEN 
TRANS COUNT := TRANS COUNT + 1.0; 


--if you have detected a name match count the number of assignment 
--variables as transitive feed into the actual parameter 

--note functions have already been calculated the same for 

--data structures so skip these counts 


ii TEMP. 12 -= T1.NEXTI1: 
if (T1.TYPE DEFINE = IDENT TYPE) AND 
(T2.TYPE DEFINE = ASSIGN TYPE) then 
LOOP i" 
EXIT WHEN T2.TYPE DEFINE = END ASSIGN TYPE; 
if T2.TYPE DEFINE = IDENT TYPE THEN 
TRANS COUNT := TRANS COUNT + 1.0; 
end if; 7 
ete — IP 2: 
T2 := T1.NEXTI1; 
END LOOP; 
end if; 
end if; 
TEMP. := TEMP1.NEXT1; 
TEMP1 := TEMP; 
END LOOP: 
RETURN(TRANS COUNT); 
END TRANSITIVITY IN; 


--if detect a name match on the right hand side of an assignment 
--statement have a transitive relation on this variable but 
--there is no need to count the rest of the assignment 

--variables becuase the most it can account for is 1 


function TRANSITIVITY OUT(IN NAME: LEXEME TYPE; 
TOP : POINTER) 
RETURN FLOAT is 


ASSIGN MARK : BOOLEAN := FALSE; 
TRANS COUNT: FLOAT := 0.0; 

TEMP, TEMP1: POINTER := TOP; 

MAX : INTEGER := MAX LINE SIZE; 
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BEGIN 
LOOP 
EXIT WHEN (TEMP.TYPE DEFINE = END PROCEDURE CALL) OR 
(TEMP.TYPE DEFINE = END FUNCTION TYPE); 
IF TEMP.TYPE DEFINE = ASSIGN TYPE THEN 
ASSIGN MARK := TRUE; 
ELSIF TEMP.TYPE DEFINE = END ASSIGN TYPE THEN 
ASSIGN MARK := FALSE; 


END IF; 

IF (TEMP.NOMEN(1..MAX) = IN NAME(1..MAX)) AND (ASSIGN MARK) 
THEN 
TRANS COUNT := TRANS COUNT + 1.0; 

END IF: 


TEMP := TEMP1.NEXT1: 
TEMP! := TEMP; 
END LOOP: 
RETURN(TRANS COUNT); 
END TRANSITIVITY OUT; 
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--finishes polishing the data and with the transitivity functions calculates 
--the fan in /fan out of data besides the global data structures 


procedure CALCULATE METRIC (HEAD - in POINTER: 
HEAD LINE: in LINE POINTER) is 

TEMP LINE : LINE POINTER; 

TEMP, TOP, TEMP1, TEMP2 : POINTER; 

PROC PTR, 

PARAM PTR : POINTER: 

FAN IN, FAN OUT : FLOAT; 

LENGTH : INTEGER := 0; 

MAX : INTEGER := MAX LINE SIZE; 

CODE EXPONENT INTEGERS 2.0 = 

COMPLEXITY, 


GLOBAL FLOW, 

GLOBAL READ, 

GLOBAL WRITE, 
GLOBAL READ WRITE _ : FLOAT; 


--global flow represents the whole picture of global data flow 
--the equation is below and encompasses both read and write to 
--global data structures 

--note: global data structures could be external function calls 
--there is no means to determine the difference 


NEW NAME : STRING(1..MAX LINE SIZE); 
NAME OF : LEXEME_ TYPE; 

ASSIGN MARK, 7 

GLOBAL MARK : BOOLEAN := FALSE; 
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SIZE : INTEGER := MAX LINE SIZE; 


NEW SIZE : INTEGER := 0; 
TEMP NAME : STRING(1..SIZE); 
begin 


PUT(HENRY FILE, "IN CALCUALTE METRIC"); NEW_LINE(HENRY FILE); 


--first Henry call boolean is so that the data can be reshown 


IF FIRST HENRY CALL then 

CLEAN UP HENRY _DATA(HEAD); 

SET UP HENRY _ARRAY(HEAD, HEAD LINE); 
SPRUCE. _UP HENRY DATA; 

FOR I in 1.PROC FUNC _COUNT LOOP 


GLOBAL READ = 0. 0; 
GLOBAL WRITE 720). 
GLOBAL READ WRITE := 0.0; 
FAN IN = Oi: 

FAN OUT :=50:0; 
COMPLEXITY =i) ¢ 
GLOBAL FLOW => 
LENGTH a OF 


TEMP := HENRY ARRAY(I).BEGIN POINTER; 

CLEAR HENRY LEXEME(TEMP NAME): 

TEMP_NAME(1..MAX LINE SIZE) := HENRY ARRAY(I). NAME OF DATA, 
SIZE := FIND STRING SIZE(TEMP NAME); - 
CLEAR HENRY LEXEME(NEW NAME): 


CONVERT _UPPER_ CASE(TEMP NAME, SIZE); 


--initialize the variables for each loop on either function or procedure 
--calculations 


if TEMP.TYPE DEFINE = PROCEDURE TYPE then 
OUT PUT DATA(WAITYPE OF := PROCEDURE PEyPer; 


NEW SIZE = SIZE + 10; 
NEW NAME(1..10) := "procedure " 
NEW NAME(11..NEW SIZE) := TEMP NAME(1..SIZE); 


OUT PUT DATA(I).NAME OF(1..NEW SIZE) := NEW NAME(1..NEW SIZE); 
PUT(HENRY OUT, "----------------------2022-2-neose-- ee 
NEW LINE(HENRY OUT, 2); 
PUT(HENRY OUT, NEW NAME); 
NEW _LINE(HENRY _OUT); 

elsif TEMP.TYPE DEFINE = FUNCTION TYPE then 
OTe UT _DATA(I). TYPE OF *= FUNCTION TYPE; 
NEW SIZE = SIZE + 9; 
NEW _NAME(L. 9) — uncHone.. 
NEW NAME(10..NEW SIZE) ; := TEMP NAME(1..SIZE); 
OUT PUT DATA(I).NAME OF(1..NEW SIZE) := NEW _NAME(1..NEW SIZE); 
PUT(HENRY OUT, "--------------------2--c2ceeceec00e= ie 
NEW _LINE(HENRY OUT, 2); 
PUT(HENRY OUT, NEW NAME); 
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NEW LINE(HENRY OUT); 
end if; 


--constructs a pretty name for the data file 


TEMP! := GEMP.NEA 1; 
TEMP2-=. Tb viet. 


-- look for global variables; increase global flow metric 


LOOP 
EXIT WHEN (TEMP1,TYPE DEFINE = END _FUNCTION yTY RE) OR 
(TEMP1.TYPE _DEFINE = END PROCEDURE CALL); 

if TEMP1.TYPE DEFINE = ASSIGN _TYPE then 
ASSIGN MARKER := TRUE; 

elsif TEMP1.TYPE DEFINE = END ASSIGN TYPE then 
ASSIGN MARKER := ALS. 
GLOBAL MARKER : = PALSE: 

end if; 

if (TEMP1 IDENTITY = GLOBAL DECLARE) AND (ASSIGN MARKER) 
then 
GLOBAL READ := GLOBAL READ + 1.0; 
if GLOBAL MARKER then 

GLOBAL READ WRITE = GLOBAL READ WRITE + 1.0: 

end if; 

elsif (TEMP1.IDENTITY = GLOBAL DECLARE) AND 

(NOT ASSIGN _MARKER) then 

GLOBAL WRITE := GLOBAL WRITE + 1.0; 
GLOBAL _MARKER : = TRUE. 

end if; 

TEMP! :-=> TEMP2.NEX@S 

TEMP? = TEMP I: 

END LOOP: 


-- calculate next level of data flow; procedure formal parameters 


ENP TEMP NEX #1: 
if TEMP1.TYPE DEFINE = PARAM TYPE then 
LOOP 
EXIT WHEN TEMP1.TYPE DEFINE = END PARAM _DECLARE,; 
if TEMP1.PARAM TYPE = IN _TYPE THEN > 
FAN IN:= FAN. INI; 
elsif TEMP1.PARAM _TYPE = OUT TYPE THEN 
FAN OUT := FAN OUT + 1. Os 
elsif TEMP1. PARAM TYPE = IN OUT TYPE THEN 
FAN IN := FAN IN+1.0; — 
FAN OUT -— BAN OUD 2120. 
end if; 
TEMP := TEMP1; 
TEMP! := TEMP.NEXT1; 
END LOOP; 
end if; 


b] 
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--look for procedure and function type actual parameters 


TEMP := TEMP1; 
TEMP1 := TEMP.NEXT1; 
TEMP := TEMP1; 
LOO. 
EXIT WHEN (TEMP.TYPE DEFINE = END _FUNCTION TYPE) OR 
(TEMP.TYPE DEF INE = END _PROCEDURE CALL); 


TEMP1 := TEMP; 
TEMP := TEMP1.NEXT1: 
if TEMP.TYPE DEFINE = ASSIGN TYPE then 
ASSIGN MARKER := TRUE: 
elsif TEMP.TYPE DEFINE = END ASSIGN TYPE then 
ASSIGN MARKER := FALSE; _ 
GLOBAL MARKER := FALSE; 
end if; 
if TEMP.TYPE DEFINE = PROCEDURE TYPE then 
TEMP! := TEMP.NEXTI: 
LOOP 
EXIT WHEN TEMP1.TYPE DEFINE = END ACTUAL PARAM: 
FAN OUT := FAN OUT + 1.0; 
TEMP2 := TEMP1:; 
TEMP1 := TEMP2.NEXT1; 
END LOOP: 
elsif TEMP.TYPE DEFINE = FUNCTION TYPE THEN 


-- count the function parameters 


TEMP] := TEMP.NEXT1; 
LOOP 
EXIT WHEN TEMPI.TYPE DEFINE = END ACTUAL PARAM; 
PAN OUT := FAN OUT + 1.0; 
TEMP? := TEMP1._ 
TEMP1 := TEMP?2.NEXT1; 
END LOOP; 
FAN IN := FAN IN + 1.0; --RETURN FROM FUNCTION 
elsif (TEMP. TYPE _DEFINE = DATA STRUCTURE) and 
(NOT ASSIGN > _MARK) THEN 
GLOBAL MARK := TRUE; 
GLOBAL WRITE := GLOBAL WRITE + 1.0; 
elsif (TEMP.TYPE DEFINE = DATA STRUCTURE) and ASSIGN MARK 
THEN 
if GLOBAL MARK THEN 
GLOBAL READ WRITE := GLOBAL _READ WRITE + 1.0; 
elsif NOT GLOBAL | _MARK THEN 
GLOBAL READ := GLOBAL READ + 1.0; 
end if; 
end if; 
END LOOP; 
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--now check for transitivity in the actual parameters 


TOP := HEAD.NEXT]1; 

TEMP. TOR 

LOOP 

EXIT WHEN TOP.TYPE DEFINE = END PACKAGE DECLARE; 

TOP := TEMP.NEAIE. 

TEMP — foe, 

END LOOP; 

FOR I IN 1..PROC FUNC_COUNT LOOP 

TEMP := HENRY ARRAY(I).BEGIN POINTER; 

PROC PTR := TEMP.NEXT1; 

TEMP = PROG Plke 

LOOP 

LOOP 
EXIT WHEN (PROC PTR.TYPE DEFINE = PROCEDURE TYPE) OR 

(PROC PTR.TYPE DEFINE = FUNCTION TYPE) OR 
(PROC PTR.TYPE DEFINE = END PROCEDURE CALL) OR 
(PROC PTR.TYPE DEFINE = END FUNCTION TYPE); 
PROG PTR :-= TEMP.NEXTI. 
TeMir  — PROe wk. 

END ECOL. 

IF (PROC PTR.TYPE DEFINE /= END PROCEDURE CALL) AND 
(PROC PTR.TYPE DEFINE /= END FUNCTION TYPE) THEN 
PARAM PTR := PROC PTR.NEXT]1; 

LOOP 
EXIT WHEN PARAM PTR.TYPE DEFINE = END ACTUAL PARAM; 
NAME OF(1..MAX) := PARAM PTR.NOMEN(1..MAX); 7 
FAN IN:= FAN IN + TRANSITIVITY IN(NAME OF, 
TOP, PROCIP Oke. 
FAN OUT := FAN OUT + TRANSITIVITY OUT(NAME OF, 
PARAM PTR); 
TEMP := PARAM PTR; 
PARAM PTR := TEMP.NEXT1; 
END LOOP; 

END IF; 

EXIT WHEN (PROC PTR.TYPE DEFINE = END PROCEDURE CALL) OR 
(PROC PTR.TYPE DEFINE = END FUNCTION TYPE) OR 
(PROC PTR.TYPE DEFINE = END PACKAGE TYPE); 

PROC PTR := PARAM PTR.NEXT1; 7 

TEMP := PROC PTR; 

END LOOP; 

END LOOP; --FOR LOOP 


--NOW CALCULATE ALL THE NUMBERS AND STORE IN OUTPUT FILE 


LENGTH = 


CALCULATE LINE COUNT(HENRY ARRAY(I).LINE LENGTH POINTER); 
COMPLEXITY := float(LENGTH) * 
(FAN_IN * FAN OUT) ** CODE EXPONENT; 


74 


GLOBAL FLOW := GLOBAL WRITE * 
(GLOBAL READ + GLOBAL READ WRITE) + 
GLOBAL READ WRITE * 
(GLOBAL READ + GLOBAL READ WRITE- 1.0): 
put(HENRY OUT, "NUMBER OF LINES ="): 
put(HENRY OUT, LENGTH): 
OUT PUT DATA(I).CODE LENGTH := LENGTH; 
NEW LINE(HENRY OUT); 
put(HENRY OUT, "FAN IN = It). 
put(HENRY OUT, FAN IN); 
OUT PUT DATA(I).TYPE FAN IN := FAN IN; 
NEW LINE(HENRY OUT); a 
put(HENRY OUT, "FAN OUT = It). 
put(HENRY OUT, FAN OUT); 
OUT PUT DATA(I).TYPE FAN OUT  := FAN OUT; 
NEW LINE(HENRY OUT); 7 
put(HENRY OUT, "COMPLEXITY = "). 
put(HENRY OUT, COMPLEXITY); 
OUT PUT DATA(I).TYPE COMPLEXITY := COMPLEXITY; 
NEW LINE(HENRY OUT); 
put(HENRY OUT, "GLOBAL READ= __"); 
put(HENRY OUT, GLOBAL READ); 
OUT PUT DATA(I ). TYPE READ := GLOBAL READ, 
NEW LINE(HENRY OUT); - 
put(HENRY OUT, "GLOBAL WRITE= _ "); 
put(HENRY OUT, GLOBAL WRITE); 
OUT PUT DATA(I).TYPE WRITE := GLOBAL WRITE; 
NEW LINE(HENRY OUT); 
put(HENRY OUT, "GLOBAL READ WRITE = "); 
put(HENRY OUT, GLOBAL READ WRITE); 
OUT PUT DATA(I).TYPE READ WRITE  := GLOBAL READ WRITE; 
NEW LINE(HENRY OUT); 
put(HENRY OUT, "GLOBAL FLOW = _ "); 
put(HENRY OUT, GLOBAL FLOW); 
OUT PUT “DATA(D. TYPE FLOW := GLOBAL FLOW; 
NEW LINE(HENRY OUT, 2); 


END LOOP; 
PRIVAT UR Vem@ U1) Vas-22 222222222 -- ante ncs at n). 
end if, --FIRST HENRY CALL; 
FIRST HENRY CALL := FALSE: 
END CALCULATE METRIC; 
END HENRY ANALYSIS; 
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-- MODULE NAME: PACKAGE HENRY DISPLAY 
-- DATE CREATED: 04 MAY 87 
-- LAST MODIFIED: 31 MAY 87 


-- AUTHOR: LCDR PAUL M. HERZIG 
-- DESCRIPTION: This package contains the display functions. 
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with GLOBAL, GLOBAL PARSER, HENRY GLOBAL, HENRY ANALYSIS, TERM IO, 
TEES, 

use GLOBAL, GLOBAL PARSER, HENRY GLOBAL, HENRY ANALYSIS, TERM IO, 
TEI, 


package HENRY DISPLAY is 


package NEW INTEGER IO is new TEXT IO.INTEGER [O(integer); 
use NEW INTEGER IO; 


package REAL IO is new TEXT IO.FLOAT JO(float); 
use REAL IO; 


type RELATIVE ARRAY is array (1.MAX ARRAY SIZE) of OUTPUT DATA; 
subtype ROW STRING TYPE is STRING(1..30): 


--relative array is the temporary storage for the calcualtions 
--that compare like numbers such as fan _ in of 
--procedure | to fan in of procedure 2 


MAX FAN IN : INTEGER := 1: 
MAX FAN OUT : INTEGER := 1; 
MAX COMPLEXITY ; INTEGER := 4; 
MAX READ : INTEGER := 1; 
MAX WRITE : INTEGER := 1: 
MAX READ WRITE — : INTEGER := 1: 
MAX FLOW : INTEGER := 1; 
REL FAN IN SE LO Aue 

REL FAN OUT EEO Ag, 

REL COMPLEXITY _ : FLOAT; 

REL READ : FLOAT; 

REL WRITE : FLOAT; 

REL READ WRITE ~— : FLOAT; 

REL FLOW : FLOAT; 

REL ARRAY : RELATIVE ARRAY; 
STRING SIZE - INTEGER; 


procedure VIEW HENRY(SELECTOR : in integer); 
procedure LIST HENRY DATA; 

procedure LIST METRIC DATA; 

procedure WRITE RELATIVE DATA; 
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procedure GRAPH RELATIVE DATA; 
procedure PAUSE PRINT(STOP COUNT : in INTEGER; 
RUNNING COUNT : in out INTEGER; 
DONE : in out BOOLEAN); 
procedure SET UP SCREEN(IN STRING : in ROW STRING TYPE; 
STRING SIZE : in INTEGER); a - 


procedure CENTER STRING(NAME: in ROW STRING TYPE; 
IN ROW, WIDTH : in integer); 
end HENRY DISPLAY; 
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--Pause print stops the printing of long lists so that the viewer 
--can peruse the results without losing valuable data. It also 
--returns boolean done plus integer count 


procedure PAUSE PRINT(STOP COUNT : in INTEGER; 
RUNNING COUNT : in out INTEGER; 
DONE : in out BOOLEAN) is 


CiieecCHARACTER := ’d’; 
COL, ROW. : INTEGER; 


begin 
if STOP COUNT = RUNNING COUNT then 

RUNNING COUNT := 0; 
NEW LINE; 

PUT(" — --- (Q)uit or strike any other letter to continue --- ay 
NEW LINE; 
get(CH); 
DONE = FALSE: 
DOME —|(CH = O’) OR (CH =’q)); 
MOVE CURSOR LT(1); MOVE CURSOR UP(1); CLEAR CURSOR_TO EOL; 
MOVE CURSOR UP(1); 
CLEAR CURSOR TO EOL, 

else RUNNING COUNT := RUNNING COUNT + 1; 

end if; | 


end PAUSE PRINT; 


--Centers the input string to the visible screen of a VT 100 


procedure CENTER STRING(NAME: in ROW STRING TYPE; 
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IN ROW, WIDTH: in INTEGER) is 


SCREEN WIDTH: INTEGER := 76; 
CENTER POS : INTEGER := 0; 
TEMP NAME ~~ ROW STRINGBia = 


begin 
FOR LIN 1..30 LOOP 
TEMP NAME(I) := NULL CHAR; 
END LOOP; 
TEMP NAME(1..WIDTH) := NAME(1..WIDTH): 
CENTER POS := SCREEN WIDTH / 2- WIDTH / 2; 
SET CURSOR POS(CENTER POS, IN ROW): 
PUT(TEMP NAME); 
NEW LINE; 

end CENTER STRING; 


-Puts the header of each data screen up with an underline to set it 
--off from the data 


procedure SET UP SCREEN(IN STRING : in ROW STRING TYPE; 
STRING SIZE: in INTEGER) is 


begin 
CLEARSCREEN; 
SET REVERSE(ON); 
CENTER STRING(IN STRING, 1, STRING SIZE); 
SET REVERSE(OFF); 


NEW LINE(2): 
END SET UP SCREEN: 


--lists the entire record stream of the Henry metric data 


procedure LIST HENRY DATA is 


SHORT NAME SIZE : constant integer := 40; 

TEMP POINTER, T1 SPOINTER = — WeAD: 

TEMP NAME >: LEXEME TYPE; 

SHORT NAME : STRING(1..SHORT NAME SIZE); 
SIZE : INTEGER := 0; - 

RUNNING COUNT S INTEGER:= 1: 

S LOR SINT EG Bie. 2: 

HEADER STRING > ROW STRING TYPE: 

DONE "BOODLE. = lan 
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HEADER SIZE SINE GER = 21. 


begin 
HEADER STRING(1..HEADER SIZE) := "LIST OF HENRY RECORDS": 
PUT(HENRY FILE, "IN LIST HENRY DATA"); NEW _LINE(HENRY FILE): 
LOOP EXIT WHEN DONE: 
SET UP SCREEN(HEADER STRING, HEADER SIZE), 
LOOP | A - 
put("DECLARATION  :"); 
case TEMP POINTER.IDENTITY is 
when LOCAL _DECLARE => put("Local declare"); 
when GLOBAL _DECLARE => put("Global declare"); 
when others => put("Undeclared"); 
end case; 
new line; 
put("NAME a). 
if TEMP POINTER.NOMEN(1) = NULL CHAR then 
put("None"); 
else 
TEMP NAME(1..MAX LINE SIZE) := 
TEMP POINTER. NOMEN(1. MAX LINE SIZE); 
SHORT _NAME(I. SHORT NAME SIZE) -= = TEMP NAME(1..SHORT NAME SIZE); 
put(SHORT NAME), 
FOR I IN 1..SHORT NAME SIZE LOOP 
SHORT NAME(I) := NULL CHAR; 
END LOOP; 
end if; 
new line; 
put("ACTION TYPE :"): 
case TEMP POINTER.TYPE DEFINE is 


when UNDEFINED => put("Undefined"); 
when HENRY HEAD NODE => put("Henry Head Node"); 
when PACKAGE TYPE => put("Package declaration"); 


when PROCEDURE TYPE => put("Procedure declaration"); 
when FUNCTION TYPE => put("Function declaration"); 


when PARAM TYPE => put("Parameter declaration"); 
when ASSIGN TYPE => put("Assignment delimiter"); 
when IDENT TYPE => put("Identifier"); 


when DATA STRUCTURE => put("Data structure descriptor"); 
when FUNCALL OR DS => put("Function or data descriptor"); 
when PROCALL OR DS’ => put("Procedure or data descriptor"); 
when END PARAM DECLARE => put("End parameter delimiter"); 
when END ACTUAL PARAM => put("End actual parameter delimiter"); 
when END DECLARATIONS => put("End declaration delimiter"); 
when END ASSIGN TYPE => put("End assignment statement delimiter"); 
when END PACKAGE DECLARE => put("End package declaration delimiter"); 
when END PACKAGE TYPE => put("End package delimiter"); 
when END FUNCTION TYPE => put("End function delimiter"); 
when END PROCEDURE CALL => put("End procedure delimiter"); 
when others | => put("Unknown"); 
end case; 
new line; 
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put("PARAMETER TYPE : "); 

case TEMP POINTER.PARAM TYPE is 

when IN TYPE — => put("Input"); 

when OUT TYPE => put("Output"); 

when IN OUT ee => put("Input /output"); 
when others => put("None"); 

end case; 


new _line(2); 

PAUSE PRINT(STOP, RUNNING COUNT, DONE); 

if (RUNNING COUNT = 0) AND (NOT DONE) THEN 
RUNNING COUNT := 1; 
SET UP /SCREEN(HEADER _ STRING, HEADER SIZE); 

end if; 

Tl := TEMP POINTER.NEXT1; 

TEMP POINTERS i 

EXIT WHEN (TEMP POINTER = NULL) OR DONE; 


end loop; 
if NOT DONE THEN 
SPOR sai: 


RUNNING COUNT — I 


put (UF * Fetters eeeeee=**s* End data collection reconad= ar 


put(" latices ice! 2) new line; 
PAUSE PRINT(STOP, RUNNING COUNT, DONE); 
end if: 


end loop; --done loop 


end LIST HENRY DATA; 
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--lists the metric calcualtion data for each procedure or function 
--of the particular package analyzed. The data is held in a file 
--called "Metric.data" 


procedure LIST METRIC DATA is 


IN STRING : STRING(1..49); 
NUMBER OF : NATURAL; 

TEMP _ : POINTER := HEAD.NEXT]1; 
STOP : INTEGER := 13; 

RUNNING COUNT : INTEGER := 1; 
HEADER STRING : ROW STRING TYPE; 
DONE : BOOLEAN := FALSE; 
HEADER SIZE : INTEGER := 24; 


begin 
PUT(HENRY FILE, "IN LIST METRIC DATA"); NEW LINE(HENRY FILE); 
HEADER _STRING(1. -HEADER SIZE) := "LIST HENRY METRIC VALUES"; 
if IS OPEN(HENRY OUT) then 
if OUT FILE = MODE(HENRY OUT) then 
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RESET(HENRY OUT, IN FILE); 
end if; 
else OPEN(HENRY OUT, IN FILE, HENRY OUT NAME); 
end if; 
SET UP SCREEN(HEADER STRING, HEADER SIZE); 
IN STRING(1..8) := "PACKAGE " 7 
IN STRING(9..49) := INPUT FILE NAME(1..41); 
put(IN STRING); 
NEW LINE(2); 
LOOP 
EXIT WHEN (END OF FILE(HENRY OUT) OR DONE); 
FOR J IN 1..49 LOOP 
IN STRING(J) := NULL CHAR; 
END LOOP; 7 
GET LINE(HENRY OUT, IN STRING, NUMBER OF); 
PUT LINE(IN STRING); 7 
PAUSE PRINT(STOP, RUNNING COUNT, DONE), 
IF (RUNNING COUNT = 0) AND (NOT DONE) THEN 
RUNNING COUNT := 1; 
SET UP SCREEN(HEADER STRING, HEADER SIZE); 
end if; 
END LOOP; 
IF (NOT DONE) THEN 
STOP := 1; RUNNING COUNT := 1; 
PAUSE PRINT(STOP, RUNNING COUNT, DONE), 
end if; 
CLOSE(HENRY OUT); 


end LIST METRIC DATA; 


--Lists the relative comparison metric data. This listing 
--compares each procedure/function analyzed with for example the 
--fan in numbers. It also gives a verbal report for each function/ 
--procedure. 


procedure WRITE RELATIVE DATA is 


INDICATOR], 

INDICATOR2, 

PYDICATORS : FLOAT := 0.0; 

UPPER LIMIT: constant FLOAT := 4.0; 
LOWER LIMIT: constant FLOAT := 0.25; 
TEMP HOLDER : STRING(1..10); 

STOP, RUNNING : INTEGER := 1, 
HEADER STRING : ROW STRING TYPE; 
ROW STRING : ROW STRING TYPE; 
SIZE — : INTEGER; 

DONE - BOOLEAN := FALSE; 
HEADER SIZE : INTEGER := 29; 


begin 
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HEADER STRING(1..HEADER SIZE) := "THE RELATIVE PERFORMANCE DATA", 
SET UP SCREEN(HEADER | STRING, HEADER SIZE); 

if PROC FUNC COUNT THEN STOP := = PROGZFUNCICOUENT, 

else STOP := 16; 

end if; 

PUT(HENRY FILE, "IN WRITE RELATIVE DATA"); NEW _LINE(HENRY FILE); 


--name the outer loop so that can exit gracefully when the user 
--wants to quit 


OUTER LOOP: 
FOR JIN 1.7 LOOP 
CASE J is 
when 1 => ROW STRING(1.. 
SIZE =-6. 
when 2 => ROW STRING(1.. 
rel VADs (- 
when 3 => ROW STRING(1..10) := "COMPLEXITY"; 
SIZE -— 10; 
when 4 => ROW STRING(1..11) := "GLOBAL READ"; 
SIZE -— i 
when 5 => ROW STRING(1..12) == "GLOBAL WRITE 
SIZE <= 12° 
when 6 => ROW STRING(1..17) := "GLOBAL READ WRITE"; 
SIZ =a 
when 7 => ROW STRING(1..11) := "GLOBAL FLOM 
SIZE := 11; 


when others => null; 
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end case; 

CENTER STRING(ROW STRING, 4, SIZE); 

FOR IIN 1..PROC FUNC COUNT LOOP 

SEL CURSOR _POS(1, ies 5); 

REL ARRAY (I) NAME OF := OUT PUT DATA(I).NAME OF; 

PUT(REL ARRAY(I).NAME OF); SET CURSOR POS(4Z, |+5)7 Pen 


--set up the names before write the data 


CASE J is 

when 1 => put(REL ARRAY(I). TYPE FAN IN); 

when 2 => put(REL ARRAY(I). TYPE FAN OME): 
when 3 => put(REL ARRAY(I).TYPE _COMPLEXITY); 
when 4 => put(REL ARRAY(I).TYPE READ); 

when 5 => put(REL ARRAY(I). TYPE WRITE); 

when 6 => put(REL _ARRAY(I). TYPE READ WRITE); 
when 7 => put(REL ARRAY(I). TYPE _FLOW); 

when others => null; 

end case; 

NEW _ LINE; 

PAUSE PRINT(STOP, RUNNING, DONE); 


--boolean done is set true by user answering the querry to quit 
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EXIT OUTER LOOP WHEN DONE, 
if (RUNNING = 0) AND (STOP = 16) THEN 
STOP := PROC FUNC COUNT - 17; 
elsif RUNNING = 0 THEN 
co oad ie a ee STRING, HEADER SIZE); 
RUNNING : 
end if; 
end loop; 
end loop OUTER LOOP; 


--set up to loop again once have cycled through to first stop 
--count. This means have filled the screen once 


SOP -= 1: RUNNING := 1; 
PAUSE PRINT(STOP, RUNNING, DONE); 


CLEARSCREEN; 

PUT("The following are the maximums for each calculation: "); 

new line; 

put(" wa nnn nnn nnn nn nnn nn nnn nn 3 2 nnn 3-22 = ----- i) 

new line; 

put("Fan In : "); pu((REL ARRAY(MAX FAN IN).NAME OF); new line; 

put("Fan Out : "); put(REL ARRAY(MAX FAN OUT).NAME OF); new line; 

put ("Complexity : "); put(REL ARRAY(MAX COMPLEXITY).NAME OF); NEW LINE; 
put("Global Read —: "); put(REL ARRAY(MAX READ).NAME OF); NEW LINE; | 
PUT ("Global Write als put(REL ARRAY(MAX WRITE).NAME OF); NEW LINE; 

PUT ("Global Read Write : "); put((REL ARRAY(MAX READ WRITE).NAME OF); NEW LINE; 
PUT("Global Flow "); put(REL_ ARRAY(MAX FLOW).NAME OF); NEW LINE; 

new line; 

put ("'---------------------------------0---- 20-2 en enone neon a 

new line 


STOP := 1: RUNNING := 1; 
PAUSE PRINT(STOP, RUNNING, DONE); 
SET UP SCREEN(HEADER STRING, HEADER SIZE); 


--calculate the indicator numbers so that can determine the relative 
--performance of each procedure/function within each category 


FOR I IN 1..PROC_ FUNC COUNT LOOP 
if REL ARRAY(I). TYPE FLOW /= 0.0 THEN 
INDICATOR! := REL ARRAY{(I).TYPE COMPLEXITY / 
REL ARRAY(I). TYPE FLOW; 
else INDICATOR1 := REL ARRAY(I). TYPE COMPLEXITY; 
end if; 
if REL ARRAY(I).TYPE FAN OUT /= 0.0 THEN 
INDICATOR2 := REL ARRAY{(I).TYPE FAN _IN / 
REL ARRAY(I).TYPE FAN OUT; 
else INDICATOR2 := REL ARRAY(I). TYPE FAN _IN; 
end if; 
if REL ARRAY(I). TYPE WRITE /= 0.0 THEN 
INDICATORS := REL ARRAY(I).TYPE READ / 
REL ARRAY(I).TYPE WRITE; 
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else INDICATORS := REL ARRAY(I).TYPE READ; 
end if; . 
PUT(REL ARRAY(I).NAME OF); a (ye 


new line; 
--put out the results of the indicator analysis 


IF INDICATOR] > UPPER LIMIT THEN 
PUT(" - Has significant complexity compared to global data flow."); 
new line; 
if INDICATOR2 > UPPER LIMIT THEN 
put(''- This implies poor internal code structure. "); 
new line; 
put(" - Consider remodularization."); 
new line; 
elsif INDICATOR2 < LOWER LIMIT THEN 
PUT(" - This implies an extremely complex interface."); 
new line; 
end if; 
ELSIF INDICATORI < LOWER LIMIT THEN 
PUT(" - Has significant global data flow compared to complexity."); 
new line; 
if INDICATOR3 > UPPER LIMIT THEN 
put(" - This implies an overworked data structure "); 
new line; 
put(" - or a considerable number of function calls "); 
new line; 
put(" - Consider redistributing the data structure into this module"); 
new line; 
elsif INDICATORS < LOWER LIMIT THEN 
PUT(" - This implies a program stress point"); 
new line; 
put(" - or a critical data flow point"); 
new line; 
put(" - Consider reorganizing the data structure."); 
new line; 
end if; 
ELSE 
TEMP HOLDER(1..10) := REL ARRAY(I).NAME OF(1..10); 
put(" - Is a fairly well balanced "); put(TEMP HOLDER); 
new line; . 
put(" - This implies good modularization. "); 
new line; 
END IF; 
STOP := 1; RUNNING. a 
PAUSE PRINT(STOP, RUNNING, DONE); 
EXIT WHEN DONE; 
end loop; 
if NOT DONE THEN 
STOP = RUNNING. — 1. 
PAUSE PRINT(STOP, RUNNING, DONE); 
end if; 
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end WRITE RELATIVE DATA; 


--produces a bar chart of each metric calculation for visual comparisons 
procedure GRAPH RELATIVE DATA is 


LOOP CNT : INTEGER; 
ROW STRING : ROW STRING TYPE; 
HEADER STRING: ROW STRING TYPE; 


SIZE ~ : INTEGER: 

STOP, RUNNING : INTEGER := 1: 
DONE : BOOLEAN := FALSE: 
SCALE : INTEGER := 5; 

NUM LOOP CNT, 

REM CNT : INTEGER; 


HEADER SIZE: INTEGER := 30; 


begin 
NUM LOOP CNT := PROC FUNC COUNT / 5; 
REM CNT := PROC FUNC COUNT REM 5; 


--loop count is the number of screens need to display 
--remainder count is the partial screen that 1s left over 


HEADER STRING(1..30) := "THE GRAPHICAL PERFORMANCE DATA"; 

if NUM LOOP CNT >= 1 THEN STOP := 5; 

else STOP := REM CNT; 

end if; 

PUT(HENRY FILE, "IN WRITE RELATIVE DATA"); NEW LINE(HENRY FILE); 
SET UP SCREEN(HEADER STRING, HEADER SIZE), 


--set up to exit gracefully when the user wants to quit 


GRAPH LOOP: 
FOR J IN 1..7 LOOP 


CASE J is 

when 1 => ROW STRING(1..6) := "FAN IN"; 
SIZE := 6; 

when 2 => ROW STRING(1..7) := "FAN OUT"; 
SiZk .— 7; 

when 3 => ROW STRING(1..10) := "COMPLEXITY"; 
SIZE := 10; 

when 4 => ROW STRING(1..11) := "GLOBAL READ"; 
SIZE := 11; 

when 5 => ROW STRING(1..12) := "GLOBAL WRITE"; 
SIZE := 12; 

when 6 => ROW STRING(1..17) := "GLOBAL READ WRITE"; 
SIZE := 17; 

when 7 => ROW STRING(1..11) := "GLOBAL FLOW"; 
SIZE := 11: 
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when others => null; 
end case; 


--set up to graph each of the Henry metric variables 


CENTER STRING(ROW STRING, 4, SIZE); 
FOR I IN 1..PROC _FUNC_ _COUNT LOOP 

new line; 

REL _ARRAY{(I).NAME OF := OUT PUT _DATA(I).NAME_ OF; 

PUT(REL ARRAY(I). NAME _OF); new _line; 

GASE Vis 

when 1 => LOOP CNT := SCALE * INTEGER(REL ARRAY(I).TYPE FAN IN), 

when 2 => LOOP CNT := SCALE * INTEGER(REL ARRAY (I). TYPE FAN OUT: 
when 3 => LOOP CNT := SCALE * INTEGER(REL ARRAY (I). TYPE _COMPLEXITY),; 
when 4 => LOOP CNT := SCALE * INTEGER(REL ARRAY{(I). TYPE READ); 

when 5 => LOOP CNT := SCALE * INTEGER(REL ARRAY(I). TYPE WRITE); 

when 6 => LOOP CNT := SCALE * INTEGER(REL ARRAY(I).TYPE READ _WRITE); 
when 7 => LOOP CNT := SCALE * INTEGER(REL ARRAY (I).TYPE -FLOW); 


when others => null; 
end case; 
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--set up scaling so that most of screen is filled when the relative 
--score is maxed at 10 


FOR LIN 1..LOOP CNT LOOP 
PUT("*"), — 
END LOOP; 
NEW LINE(1); 
PAUSE PRINT(STOP, RUNNING, DONE); 
EXIT GRAPH LOOP WHEN DONE; 


--graph loop actually prints the bar chart 


if (RUNNING = 0) AND (STOP < 5) THEN 
if PROC SEUNG COUNT > 5 THEN 
SLOP =ca: 
end if; 
SET UP _SCREEN(HEADER | STRING, HEADER _SIZE); 
RUNNING := = 1 
elsif (RUNNING = 0) AND (STOP = 5) THEN 
if PROC FUNC COUNT = 5 THEN 
SET UP _SCREEN(HEADER | STRING, HEADER _SIZE); 
RUNNING ee be 
elsif PROC FUNC COUNT >5 THEN 
NUM LOOP CNT := NUM LOOP _CNT - 1; 
if NUM LOOP CNT >= 1 THEN STOP := = 0° RUNNING 2 ae. 
elsif REM CNT /= 0 THEN 
STOP := REM CNT; RUNNING := 1; 
else SET UP SCREEN(HEADER STRING, HEADER SIZE); 
RUNNING := 1; a 7 
end if; 
end if; 
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end 1f;1 


--all the above checks are for end of screen printing conditions 
--they ensure that once a full screen has been displayed that a 
--partial is scrolled but another full is reprinted 


end loop: 
end loop GRAPH LOOP; 


end GRAPH RELATIVE DATA: 
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--this is the driver module called from Menu procedure which 
--controls which display feature will be called and produces al! 
--the relative data numbers. It also does the initial calculations 
--plus finds the normalized number presently set at 10 for 
--full screen graph display 


procedure VIEW HENRY(SELECTOR : in integer) is 
MOhoetA LIZER: constant FLOAT := 10.0; 


begin 
PUT(HENRY FILE, "IN VIEW HENRY PROCEDURE"); NEW LINE(HENRY FILE); 
CALCULATE METRIC(HEAD, HEAD LINE), 


--search for the maximums for each variable 


FOR IIN 1..PROC FUNC COUNT LOOP 

IF OUT PUT DATA(I).TYPE FAN IN > 
OUT PUT DATA(MAX FAN IN).TYPE FAN IN THEN 
MAX FAN IN:= I; 

END IF; 

IF OUT PUT DATA(I).TYPE FAN OUT > 
OUT PUT DATA(MAX FAN OUT).TYPE FAN OUT THEN 
MAX FAN OUD <=1; 

END IF; 

IF OUT PUT DATA(I). TYPE COMPLEXITY > 
OUT PUT DATA(MAX COMPLEXITY).TYPE COMPLEXITY THEN 
MAX COMPLEXITY := I; 

END IF: 

IF OUT PUT DATA(I).TYPE READ > 
OUT PUT DATA(MAX READ).TYPE READ THEN 
MAX READ := I; 

END IF: 

IF OUT PUT DATA(I).TYPE WRITE > 
OUT PUT DATA(MAX WRITE).TYPE WRITE THEN 
MAX WRITE := I; 

END IF; 
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IF OUT PUT DATA(I IYER READ Rhine 
OUT PUT _DATA(MAX _ READ WRITE). TYPE READ WRITE THEN 
MAX READ WRITE := I; 

END IF; 

IF OUT PUT DATA(I). TYPE FLOW > 
OUT PUT -DATA(MAX _FLOW). TYPE FLOW THEN 
MAX FLOW := I; 

END IF; 

END LOOP; 


--calculate the normalized output number 
FOR LIN 1..PROC BUNC COU Toor 


if OUT PUT DATA(MAX FAN IN).TYPE FAN IN /= 0.0 then 
REL ARRAY(I).TYPE FAN IN := NORMALIZER * 
(OUT PUT DATA(I).TYPE FAN IN / 
OUT PUT DATA(MAX FAN IN).TYPE FAN IN); 
else REL ARRAY(I). TYPE FAN IN := 0.0; 
end if; 


if OUT PUT DATA(MAX FAN OUT).TYPE FAN OUT /= 0.0 THEN 
REL -ARRAY(lI). TYPE FAN OUT := NORMALIZER * 
(OUT PUT DATA(I). TYPE FAN _OUT / 

OUT PUT. _DATA(MAX FAN OUT).TYPE FAN OUT); 
else REL ARRAY(I). TYPE _FAN_ OUT := 0.0; 
end if; 


if OUT PUT DATA(MAX COMPLEXITY).TYPE COMPLEXITY /= 0.0 THEN 
REL ARRAY(I). TYPE COMPLEXITY := NORMALIZER * 
(OUT PUT DATA(I). TYPE COMPLEXITY / 

OUT PUT DATA(MAX COMPLEXITY).TYPE COMPLEXITY); 
else REL _ARRAY(I). TYPE COMPLEXITY := 0.0; 
end if; 


if OUT PUT DATA(MAX READ).TYPE READ /= 0.0 THEN 
REL ARRAY(I). TYPE READ := NORMALIZER * 
(Oli PUT 2B (i: TYPE READ / 

OUT PUT ~DATA(MAX _READ).TYPE READ); 
else REL ARRAY‘(I). TYPE READ := 0.0; 
end if; 


if OUT PUT DATA(MAX WRITE).TYPE WRITE /= 0.0 THEN 
REL _ARRAY (I). TYPE WRITE := NORMALIZER * 
(OUT PUT DATA(I). TYPE _WRITE / 

OUT PUT DATA(MAX WRITE).TYPE WRITE); 
else REL ARRAY (I). WAS WRITE := 0.0; 
end if; 


if OUT PUT DATA(MAX READ WRITE).TYPE READ WRITE /= 0.0 THEN 
REL ARRAY(I). TYPE READ WRITE := NORMALIZER * 
(OUT PUT DATA(I). TYPE READ WRITE / 
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OU at Dee READ WRITES YPE READ WRITE); 
else REL ARRAY(I).TYPE READ WRITE := 0.0; 
end if; 


if OUT PUT DATA(MAX FLOW).TYPE FLOW /= 0.0 THEN 
REL ARRAY(I). TYPE FLOW := NORMALIZER * 
(OUT PUT DATA(I).TYPE FLOW / 

OUT PUT DATA(MAX FLOW).TYPE FLOW); 
else REL ARRAY(I). TYPE FLOW := 0.0; — 7 
end if; i. 


END LOOP; 


case SELECTOR is 
when 1 => LIST HENRY DATA; 
when 2 => LIST METRIC DATA; 
when 3 => WRITE RELATIVE DATA; 
when 4 => GRAPH RELATIVE DATA, 
when others => null; 
end case; 

FIRST HENRY CALL := FALSE; 

END VIEW HENRY: 

END HENRY DISPLAY; 
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APPENDIX C: MODIFIED PARSERS 
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-- TITLE: AN ADA SOFTWARE METRIC 


-- MODULE NAME: PACKAGE BYPASS FUNCTION 
-- DATE CREATED: 25 JUL 86 
-- LAST MODIFIED: 16 APR 87 


-- AUTHORS: LCDR JEFEREYE NIEDER 
-- LT KARL S. FAIRBANKS, JR. 
- LCDR PAUL M. HERZIG 


-- DESCRIPTION: This package contains the workhorse function 
-- required to identify each individual token. 
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with HALSTEAD METRIC, BYPASS SUPPORT FUNCTIONS, GLOBAL, 
GLOBAL PARSER, HENRY GLOBAL, HENRY, TEXT IO; 

use HALSTEAD METRIC, BYPASS SUPPORT FUNCTIONS, GLOBAL, 
GLOBAL _PARSER, HENRY _GLOBAL, HENRY, TEXT 210; 


package BYPASS FUNCTION is 


function BYPASS(TOKEN ARRAY ENTRY CODE: integer) return boolean; 
procedure CONDUCT RESERVE We ORD _TEST(CONSUME : in out boolean); 
end BYPASS_ FUNCTION; 
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package body BYPASS FUNCTION is 


-- this function compares the lexeme of the current token with the 
-- token currently being sought by the parser. If the current token 
-- type is identifier, then a test 1s conducted to ensure it is not 

-- a reserved word. 


function BYPASS(TOKEN ARRAY ENTRY CODE: integer) return boolean is 


CONSUME : boolean := FALSE: 

LEXEME : string(1..LINESIZE); 

SIVAD : natural; 

HENRY LEXEME : string(1..MAX LINE SIZE); 
begin 


GET CURRENT TOKEN RECORD(CURRENT TOKEN RECORD, LEXEME LENGTH); 
LEXEME := CURRENT TOKEN RECORD.LEXEME; 
SIZE := CURRENT TOKEN RECORD.LEXEME SIZE - 1; 
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FORIIN1..MAX LINE SIZE LOOP 
HENRY LEXEMBE(I) := NULL CHAR; 
END LOOP: = 
HENRY LEXEME (1..SIZE) := LEXEME(1..SIZE); 


case TOKEN ARRAY ENTRY CODE is 
when TOKEN IDENTIFIER => 
if (CURRENT | TOKEN RECORD.TOKEN TYPE = IDENTIFIER) then 
CONSUME := TRUE: 
CONDUCT RESERVE WORD TEST(CONSUME); 
end if; 
if (CONSUME) then 
CONVERT UPPER CASE(HENRY LEXEME, SIZE); 
CONVERT UPPER _CASE(LEXEME, SIZE); 
if HENRY WRITE ENABLE then 
put(RESULT FILE, "in bypass at identifier "); new line(RESULT FILE); 
WRITE HENRY _DATA(BLANK, HENRY LEXEME, IDENT TYPE, NONE, NEXT HEN); 
CREATE _NODE(NEXT HEN, LAST -RECORD), 
HENRY WRITE _ENABLE := = FALSE: 
end if; 
OPERAND METRIC(HEAD NODE, CURRENT TOKEN RECORD, DECLARE TYPE); 
DECLARE TYPE := = VARIABLE _DECLARE; 
end if; 


when TOKEN NUMERIC LITERAL => 
if (CURRENT TOKEN RECORD.TOKEN TYPE = NUMERIC LIT) then 
CONSUME := TRUE; 
DECLARE TYPE := CONSTANT DECLARE; 
OPERAND METRIC(HEAD NODE, CURRENT TOKEN RECORD, DECLARE _TYPE); 
DECLARE TYPE := VARIABLE DECLARE; 
if HENRY WRITE ENABLE then 
WRITE HENRY DATA(LOCAL DECLARE, HENRY LEXEME, IDENT_TYPE, 
~ NONE, NEXT HEN); 
CREATE NODE(NEXT HEN, LAST RECORD); 
HENRY WRITE ENABLE := FALSE; 
end if; 
end if; 


when TOKEN CHARACTER LITERAL => 
if (CURRENT TOKEN RECORD.TOKEN TYPE = CHARACTER LIT) then 
if HENRY WRITE ENABLE then 
WRITE HENRY DATA(LOCAL_ DECLARE, HENRY LEXEME, IDENT TYPE, 
NONE, NEXT HEN); 
CREATE NODE(NEXT HEN, LAST RECORD); 
HENRY WRITE ENABLE := FALSE; 
end if: 
CONSUME := TRUE; 
end if; 


when TOKEN STRING LITERAL => 
if (CURRENT TOKEN RECORD.TOKEN TYPE = STRING LIT) then 
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CONSUME := TRUE; 

if HENRY WRITE ENABLE then 

WRITE HENRY DATA(LOCAL DECLARE, HENRY LEXEME, IDENT TYPE, 

NONE, NEXT_HEN); 7 

CREATE NODE(NEXT_HEN, LAST RECORD); 
HENRY WRITE ENABLE := FALSE; 

end if; 

end if; 


when TOKEN END => 
if (ADJUST LEXEME(LEXEME, SIZE) = "end") then 
CONSUME := PRUE. 
end if; 


when TOKEN BEGIN => 
if (ADJUST LEXEME(LEXEME, SIZE) = "begin") then 
CONSUME] PRUE: 
end if: 


when TOKEN IF => 
if (ADJUST LEXEME(LEXEME, SIZE) = "if") then 
CONSUME,..= TRUE. 
end if; 


when TOKEN THEN => 
if (ADJUST LEXEME(LEXEME, SIZE) = "then") then 
CONSUME := TRUE; 
end if; 


when TOKEN ELSIF => 
if (ADJUST LEXEME(LEXEME, SIZE) = "elsif") then 
CONSUME := TRUE. 
end if; 


when TOKEN ELSE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "else") then 
CONSUME = TRUE: 
end if; 


when TOKEN WHILE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "while") then 
CONSUME-=— TRUE- 
end if; 


when TOKEN LOOP => 
if (ADJUST LEXEME(LEXEME, SIZE) = "loop") then 
CONSUME = TRUE. 
end if: 


when TOKEN CASE = 
if (ADJUST LEXEME(LEXEME, SIZE) = "case") then 
CONSUME. = TRUE: 
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end if; 


when TOKEN WHEN => 
if (ADJUST LEXEME(LEXEME, SIZE) = "when") then 
CONSUME := TRUE; 
end if; 


when TOKEN DECLARE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "'declare") then 
CONSUME := TRUE 
end if; 
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when TOKEN FOR => 
if (ADJUST LEXEME(LEXEME, SIZE) = "for'') then 
CONSUME := TRUE; 
end if; 


when TOKEN OTHERS => 
if (ADJUST LEXEME(LEXEME, SIZE) = "others") then 
CONSUME := TRUE; 
end if; 


when TOKEN RETURN => 
if (ADJUST LEXEME(LEXEME, SIZE) = "return") then 
CONSUME := TRUE: 
end if; 


when TOKEN EXIT => 
if (ADJUST LEXEME(LEXEME, SIZE) = "exit") then 
CONSUME := TRUE: 
end if; 


when TOKEN PROCEDURE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "procedure") then 
CONSUME := TRUE; 
end if; 


when TOKEN FUNCTION => 
if (ADJUST LEXEME(LEXEME, SIZE) = "function") then 
CONSUME := TRUE; 
end if; 


when TOKEN WITH => 
if (ADJUST LEXEME(LEXEME, SIZE) = "with") then 
CONSUME := TRUE; 
end if; 


when TOKEN USE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "use") then 
CONSUME := TRUE; 
end if; 
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when TOKEN PACKAGE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "package") then 
CONSUME := TRUE; 
end if; 


when TOKEN BODY => 
if (ADJUST LEXEME(LEXEME, SIZE) = "body") then 
CONSUME := TRUE; 
end if; 


when TOKEN RANGE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "range") then 
CONSUME := TRUE; 
end if; 


when TOKEN IN => 
if (ADJUST LEXEME(LEXEME, SIZE) = “in") then 
CONSUME := TRUE; 
end if; 


when TOKEN OUT => 
if (ADJUST LEXEME(LEXEME, SIZE) = “out") then 
CONSUME := TRUE: 
end if; 


when TOKEN SUBTYPE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "subtype") then 
CONSUME = TRUE: 
end if; 


when TOKEN TYPE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "type") then 
CONSUME := TRUE: 
end if; 


when TOKEN IS => 
if (ADJUST LEXEME(LEXEME, SIZE) = "is") then 
CONSUME := TRUE; 
end if: 


when TOKEN NULL => 
if (ADJUST LEXEME(LEXEME, SIZE) = "null") then 
CONSUME := TRUE; 
end if; 


when TOKEN ACCESS => 
if (ADJUST LEXEME(LEXEME, SIZE) = "access") then 
CONSUME := TRUE: 
end if; 


when TOKEN ARRAY => 
if (ADJUST LEXEME(LEXEME, SIZE) = "array") then 
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CONSUME := TRUE; 
end if; 


when TOKEN DIGITS => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME--— TRUE: 
end if; 


wien LOKEN DELTA => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN RECORD STRUCTURE => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN CONSTANT => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN NEW => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN EXCEPTION => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN RENAMES => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN PRIVATE => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN LIMITED => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN TASK => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 
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"digits") then 


"delta'") then 


"record") then 


"constant") then 


"new") then 


"exception") then 


"renames") then 


"private") then 


"limited") then 


"task") then 


when TOKEN ENTRY => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME :=— TRUE: 
end if; 


when TOKEN ACCEPT => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN DELAY => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if: 


when TOKEN SELECT => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME. = TRUE: 
end if; 


when TOKEN TERMINATE => 


if (ADJUST LEXEME(LEXEME, SIZE) 


CONSUME := TRUE; 
end if: 


when TOKEN ABORT => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME <= TRUE: 
end if: 


when TOKEN SEPARATE => 


if (ADJUST LEXEME(LEXEME, Al) a 


CONSUME |=. Di: 
end if: 


when TOKEN RAISE => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE: 
end if: 


when TOKEN GENERIC => 


if (ADJUST LEXEME(LEXEME, S11) 


CONSUME := TRUE: 
end if: 


when TOKEN AT => 


if (ADJUST LEXEME(LEXEME, SIZE) = 


CONSUME := TRUE; 
end if; 


when TOKEN REVERSE => 
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"entry") then 


"accept") then 


"delay") then 


"Select") then 


"terminate") then 


"abort") then 


"separate") then 


"raise") then 


"generic") then 


"at") then 


if (ADJUST LEXEME(LEXEME, SIZE) = "reverse") then 
CONSUME -— TRUE: 
end if; 


when TOKEN DO => 
if (ADJUST LEXEME(LEXEME, SIZE) = "do") then 
CONSUME := TRUE; 
end if; 


men OMEN GOTO —> 
if (ADJUST LEXEME(LEXEME, SIZE) = "goto") then 
CONSUME <= TRUE: 
end if; 


when TOKEN OF => 
if (ADJUST LEXEME(LEXEME, SIZE) = "of") then 
CONSUME := TRUE 
end if; 


d 


when TOKEN ALL => 
if (ADJUST LEXEME(LEXEME, SIZE) = "all') then 
CONSUME := TRUE; 
end if; 


when TOKEN PRAGMA => 
if (ADJUST LEXEME(LEXEME, SIZE) = "pragma") then 
CONSUME := TRUE; 
end if; 


when TOKEN AND => 
if (ADJUST LEXEME(LEXEME, SIZE) = "and") then 
CONSUME := TRUE; 
end if; 
OPERATOR METRIC(TOKEN AND, CONSUME, me SER YEW ORD TEST): 


when TOKEN OR => 
if (ADJUST LEXEME(LEXEME, SIZE) = "or") then 
CONSUME -=ERUE: 
end if; 
OPERATOR METRIC(TOKEN OR, CONSUME, RESERVE WORD TEST); 


when TOKEN NOT => 
if (ADJUST LEXEME(LEXEME, SIZE) = "not") then 
CONSUME := TRUE; 
end if; 
OPERATOR METRIC(TOKEN NOT, CONSUME, RESERVE WORD TEST); 


when TOKEN XOR => 
if (ADJUST LEXEME(LEXEME, SIZE) = "xor") then 
CONSUME := TRUE; 
end if; 
OPERATOR METRIC(TOKEN XOR, CONSUME, RESERVE WORD TEST); 
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when TOKEN MOD => 
if (ADJUST LEXEME(LEXEME, SIZE) = "mod") then 
CONSUME := TRUE; 
end if; 
OPERATOR METRIC(TOKEN MOD, CONSUME, RESERVE WORD _ TEST); 


when TOKEN REM => 
if (ADJUST LEXEME(LEXEME, SIZE) = "rem") then 
CONSUME]= TRUE. 
end if; 
OPERATOR METRIC(TOKEN REM, CONSUME, RESERVE WORD _ TEST); 


when TOKEN ABSOLUTE => 
if (ADJUST LEXEME(LEXEME, SIZE) = "abs") then 
CONSUME = TRUE. 
end if; 
OPERATOR METRIC(TOKEN ABSOLUTE, CONSUME, RESERVE WORD TEST); 


when TOKEN ASTERISK => 
if (ADJUST LEXEME(LEXEME, SIZE) = "*") then 
CONSUME = TRO, 
end if; 
OPERATOR METRIC(TOKEN ASTERISK, CONSUME, RESERVE WORD TEST); 


when TOKEN SLASH => 
if (ADJUST LEXEME(LEXEME, SIZE) = "/") then 
CONSUME := TRUE: 
end if; 
OPERATOR METRIC(TOKEN SLASH, CONSUME, RESERVE WORD TEST); 


when TOKEN EXPONENT => 
if (ADJUST LEXEME(LEXEME, SIZE) = '**") then 
CONSUME := TRUE: 
end if; 
OPERATOR METRIC(TOKEN EXPONENT, CONSUME, RESERVE WORD. TEST); 


when TOKEN PLUS => 
if (ADJUST LEXEME(LEXEME, SIZE) = "+") then 
CONSUME: = Th WE. 
end if; 
OPERATOR METRIC(TOKEN PLUS, CONSUME, RESERVE WORD TEST); 


when TOKEN MINUS => 


if (ADJUST LEXEME(LEXEME, SIZE) = “= itnen 
CONSUME.-= TRUE. 
end if; 


OPERATOR METRIC(TOKEN MINUS, CONSUME, RESERVE WORD TEST); 


when TOKEN AMPERSAND => 
if (ADJUST _LEXEME(LEXEME, SIZE) = "&") then 
CONSUME := TRUE; 
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end if; 
OPERATOR METRIC(TOKEN AMPERSAND, CONSUME, RESERVE WORD TEST); 


when TOKEN EQUALS => 


if (ADJUST LEXEME(LEXEME, SIZE) = "=") then 
CONSUME := TRUE; 
end if; 


OPERATOR METRIC(TOKEN EQUALS, CONSUME, RESERVE WORD TEST); 


when TOKEN NOT EQUALS => 
if (ADJUST LEXEME(LEXEME, SIZE) = "/=") then 
CONSUME := TRUE; 
end if; 
OPERATOR METRIC(TOKEN NOT EQUALS, CONSUME, RESERVE WORD TEST); 


when TOKEN LESS THAN => 
if (ADJUST LEXEME(LEXEME, SIZE) = "<") then 
CONSUME := TRUE; 
end if; 
OPERATOR METRIC(TOKEN LESS THAN, CONSUME, RESERVE WORD TEST); 


when TOKEN LESS THAN EQUALS => 
if (ADJUST LEXEME(LEXEME, SIZE) = "<=") then 
CONSUME := TRUE; 
end if; 
OPERATOR METRIC(TOKEN LESS THAN EQUALS, CONSUME, RESERVE WORD TEST): 


when TOKEN GREATER THAN => 
if (ADJUST LEXEME(LEXEME, SIZE) = ">") then 
CONSUME := TRUE; 
end if; 
OPERATOR METRIC(TOKEN GREATER THAN, CONSUME, RESERVE WORD TEST); 


when TOKEN GREATER THAN EQUALS => 
if (ADJUST LEXEME(LEXEME, SIZE) = ">=") then 
CONSUME := TRUE; 
end if; 
OPERATOR METRIC(TOKEN GREATER THAN EQUALS, CONSUME, RESERVE WORD TES 


when TOKEN ASSIGNMENT => 
if (ADJUST LEXEME(LEXEME, SIZE) = v= ethen 
CONSUME := TRUE; 
OPERATOR METRIC(TOKEN ASSIGNMENT, CONSUME, RESERVE WORD TEST); 
end if: 


when TOKEN COMMA => 


if (ADJUST LEXEME(LEXEME, SIZE) = ",") then 
CONSUME := TRUE; 
end if; 


when TOKEN SEMICOLON => 
if (ADJUST LEXEME(LEXEME, SIZE) = ";") then 
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UPDATE LINE COUNT; 
CONSUME := TRUE; 
end if; 


when TOKEN PERIOD => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE; 
end if; 


when TOKEN LEFT PAREN => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE, 
end if; 


when TOKEN RIGHT PAREN => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE; 
end if; 


when TOKEN COLON => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME.= TRUE: 
end if; 


when TOKEN APOSTROPHE => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE; 
end if; 


when TOKEN RANGE DOTS => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE: 
end if; 


when TOKEN ARROW => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME <= TRUE. 
end if; 


when TOKEN BAR => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME <= TRUE: 
end if; 


when TOKEN BRACKETS => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME -= TRUE. 
end if: 


when TOKEN LEFT BRACKET => 
if (ADJUST LEXEME(LEXEME, SIZE) = 
CONSUME := TRUE: 
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"") then 


vi) then 


Ua) then 


":") then 


"") then 


Mo egtren 


v= >" then 


ts ") then 


Na > then 


Ne then 


end if; 


when TOKEN RIGHT BRACKET => 
if (ADJUST LEXEME(LEXEME, SIZE) = ">>") then 
CONSUME := TRUE; 
end if; 


when others => null: 
end case; 


ADJUST TOKEN BUFFER(CONSUME, RESERVE WORD _ TEST); 


return (CONSUME); 
end BYPASS; 


-- this procedure tests all identifiers to verify they are not reserved 
-- words. The most common reserved words are tested first and the process 
-- halts when a match is made or the test fails. 
procedure CONDUCT RESERVE WORD TEST(CONSUME : in out boolean) is 
begin 
RESERVE WORD TEST := TRUE; 
for RESERVE WORD INDEX in TOKEN END..TOKEN ABSOLUTE loop 
if (BYPASS(RESERVE WORD INDEX)) then 7 
CONSUME := FALSE; 
end if; 
exit when not CONSUME; 
end loop; 
RESERVE WORD TEST := FALSE; 
end CONDUCT RESERVE WORD TEST; 


end BYPASS FUNCTION; 
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-- TITLE: AN ADA SOFTWARE METRIC 


-- MODULE NAME: PACKAGE PARSER 0 
-- DATE CREATED: 09 OCT 86 
-- LAST MODIFIED: 30 MAY 87 


-- AUTHORS: LCDR JEFFREY L. NIEDER 

-~ LT KARL S. FAIRBANKS, JR. 

-- LCDR PAUL M. HERZIG 

-- DESCRIPTION: This package contains eight functions that 
-- make up the highest level productions for our top-down, 
a recursive descent parser. 
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with PARSER 1, PARSER 2, PARSER 3, HENRY GLOBAL, HENRY, BYPASS FUNCTION, 
HALSTEAD METRIC, GLOBAL PARSER, GLOBAL, TEXT IO; 

use PARSER 1, PARSER 2, PARSER 3, HENRY GLOBAL, HENRY, BYPASS _FUNCTION, 
HALSTEAD _METRIC, "CLOBAW _PARSER, GLOBAL, TEXT alo, 


package PARSER 0 1s 
function COMPILATION return boolean; 
function COMPILATION UNIT return boolean; 
function CONTEXT CLAUSE return boolean; 
function BASIC UNIT return boolean; 
function LIBRARY UNIT return boolean; 
function SECONDARY UNIT return boolean; 
function LIBRARY UNIT BODY return boolean: 
function SUBUNIT return boolean; 

end PARSER 0; 


package body PARSER 0 is 


-- COMPILATION --> [COMPILATION UNIT}+ 
function COMPILATION return boolean is 
begin 
put("In compilation "); new line; 
put(RESULT FILE, "In compilation "); new line( RESULT FILE); 
if (COMPILATION UNIT) then 
while (COMPILATION UNIT) loop 
null; 
end loop; 
return (TRUE); 
else 
return (FALSE); 
end if; 
end COMPILATION; 


-- COMPILATION UNIT --> CONTEXT CLAUSE BASIC UNIT 
function COMPILATION _UNIT return boolean is 
begin 
put(RESULT FILE, "In compilation unit "); new line(RESULT FILE); 
if (CONTEXT _CLAUSE) then 
if (BASIC UNIT) then 
return (TRUE); 
else 
return (FALSE); 
end if: 
else 
return (FALSE); 
end if: 
end COMPILATION UNIT; 
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-- CONTEXT CLAUSE --> |with WITH OR USE CLAUSE [use WITH SOR USE CLAUSE]* |* 
function CONTEXT _CLAUSE return boolean is 
begin 
put(RESULT FILE, "In context clause "); new line(RESULT FILE); 
while (BYPASS(TOKEN WITH)) loop 
if not (WITH OR USE CLAUSE) then 
SYNTAX ERROR("Context clause"): 
end if; 
while (BYPASS(TOKEN USE)) loop 
if not (WITH OR USE CLAUSE) then 
SYNTAX _ERROR("Context clause"); 


end if; 
end loop; -- inner while loop 
end loop; -- outer while loop 


return (TRUE); 
end CONTEXT CLAUSE; 
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-- BASIC UNIT --> LIBRARY UNIT 
-- --> SECONDARY UNIT 
function BASIC UNIT return boolean is 
begin 
put(RESULT FILE, "In basic unit "); new line(RESULT FILE); 
if (LIBRARY UNIT) then 
return (TRUE); 
elsif (SECONDARY UNIT) then 
return (TRUE); 
else 
return (FALSE); 
end if; 
end BASIC UNIT; 


=see eee ese ee es ee ee ee ew ew ee ew ew ewww ew me wee eB eo Bee eS PO eee SF ee Se Se ee ee eee Fee eee eee eee ee eee ee 


-- LIBRARY UNIT --> procedure PROCEDURE UNIT 
= --> function FUNCTION UNIT 
-- --> package PACKAGE DECLARATION 
-- --> generic GENERIC DECLARATION 
function LIBRARY UNIT return boolean is 
begin 
put(RESULT FILE, "In library unit "); new line(RESULT FILE); 
if (BYPASS(TOKEN _PROCEDURE)) then 
DECLARE TYPE := PROCEDURE DECLARE; 
if (PROCEDURE _UNIT) then 
return (TRUE); 
else 
SYNTAX ERROR("Library unit"); 
end if; 7 -- if procedure unit statement 


elsif (BYPASS(TOKEN FUNCTION)) then 
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DECLARE TYPE FUNCTION DPECEARE. 
if (FUNCTION UNIT) then 
return (TRUE); 
else 
SYNTAX ERROR("Library unit"); 
end if: 7 -- if function unit statement 
elsif (BYPASS(TOKEN PACKAGE)) then 
DECLARE TYPE := PACKAGE DECLARE; 
if (PACKAGE DECLARATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Library unit"); 
end if; = -- if package declaration 
elsif (BYPASS(TOKEN GENERIC)}) then 
if (GENERIC DECLARATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Library unit"); 
end if; 7 -- if generic declaration 
else 
return (FALSE), 
end if; 
end LIBRARY UNIT; 
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-- SECONDARY UNIT --> LIBRARY UNIT BODY 
-- --> SUBUNIT : 
function SECONDARY UNIT return boolean is 
begin 
put(RESULT FILE, "In secondary unit "); new line(RESULT FILE); 
if (LIBRARY UNIT BODY) then 
return (TRUE); 
elsif (SUBUNIT) then 
return (TRUE); 
else 
return (FALSE); 
end if: 
end SECONDARY UNIT; 
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-- LIBRARY UNIT BODY --> procedure PROCEDURE UNIT 
-- --> function FUNCTION UNIT 
-- --> package PACKAGE DECLARATION 
= --> generic GENERIC DECLARATION 
function LIBRARY UNIT BODY return boolean is 
begin : - 
put(RESULT FILE, "In library unit body "); new line(RESULT FILE); 
if (BYPASS(TOKEN PROCEDURE)) then 7 
DECLARE TYPE := PROCEDURE DECLARE; 
if (PROCEDURE UNIT) then 7 
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return (TRUE); 


else 
SYNTAX ERROR("Library unit body"); 
end if; -- if procedure unit statement 


elsif (BYPASS(TOKEN FUNCTION)) then 
DECLARE TYPE := FUNCTION DECLARE; 
if (FUNCTION UNIT) then 7 
return (TRUE); 


else 
SYNTAX ERROR("Library unit body"); 
end if; -- if function unit statement 


elsif (BYPASS(TOKEN PACKAGE)) then 
DECLARE TYPE := PACKAGE DECLARE; 
HENRY WRITE ENABLE := TRUE; 
put(result file, "true"); new line(result file); 
if (PACKAGE DECLARATION) then > 


return (TRUE); 


else 
SYNTAX ERROR("Library unit body"); 
end if; -- if package declaration 
else . 
return (FALSE); 
end if; -- if bypass(token procedure) 


end LIBRARY UNIT BODY; 


-- SUBUNIT --> separate (NAME) PROPER BODY 
function SUBUNIT return boolean is 
begin 
put(RESULT FILE, "In subunit "); new line(RESULT FILE); 

if (BYPASS(TOKEN SEPARATE)) then 

if (BYPASS(TOKEN LEFT PAREN)) then 
if (NAME) then 
if (BYPASS(TOKEN RIGHT PAREN)) then 
if (PROPER BODY) then 
return (TRUE); 


else 
SYNTAX ERROR("Subunit"); 
end if; = -- if proper body statement 
else 
SYNTAX ERROR("Subunit"); 
end if; 7 -- if bypass(token right paren) 
else 
SYNTAX ERROR("Subunit"); 
end if; 7 -- if name statement 
else 
SYNTAX ERROR("Subunit"); 
end if; 7 -- if bypass(token left paren) 
else 
return (FALSE); 
end if; -- if bypass(token separate) 
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end SUBUNIT; 


end PARSER 0; 
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-- TITLE: AN ADA SOFTWARE METRIC 


-- MODULE NAME: PACKAGE PARSER 1 
-- DATE CREATED: 17 JUL 86 
-- LAST MODIFIED: 30 MAY 87 


-- AUTHORS: LCDR JEFFREY L. NIEDER 

-- LT KARL S. FAIRBANKS, JR. 

-- LCDR PAUL M. HERZIG 

-- DESCRIPTION: This package contains thirty-six functions 
that make up the top level productions for our top-down, 
-- recursive descent parser. Each function is preceded 

-- by the grammar productions they are implementing. 
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with PARSER 2, PARSER 3, HENRY GLOBAL, HENRY, BYPASS FUNCTION, 
HALSTEAD METRIC, GLOBAL PARSER, GLOBAL, TEXT 10: 

use PARSER 2, PARSER 3, HENRY GLOBAL, HENRY, BYPASS FUNCTION, 
HALSTEAD METRIC, GLOBAL PARSER, GLOBAL, TEXT IO: 


package PARSER 1 is 
function GENERIC DECLARATION return boolean; 
function GENERIC PARAMETER DECLARATION return boolean; 
function GENERIC FORMAL PART return boolean; 
function PROCEDURE UNIT return boolean; 
function SUBPROGRAM BODY return boolean, 
function FUNCTION UNIT return boolean; 
function FUNCTION UNIT TAIL return boolean; 
function FUNCTION BODY return boolean; 
function FUNCTION BODY TAIL return boolean; 
function TASK DECLARATION return boolean; 
function TASK BODY return boolean; 
function TASK BODY TAIL return boolean; 
function PACKAGE DECLARATION return boolean; 
function PACKAGE UNIT return boolean; 
function PACKAGE BODY return boolean; 
function PACKAGE BODY TAIL return boolean; 
function PACKAGE TAIL END return boolean; 
function DECLARATIVE PART return boolean; 
function BASIC DECLARATIVE ITEM return boolean; 
function BASIC DECLARATION return boolean; 
function LATER DECLARATIVE ITEM return boolean; 
function PROPER BODY return boolean; 


106 


function SEQUENCE OF STATEMENTS return boolean; 
function STATEMENT return boolean; 
function COMPOUND STATEMENT return boolean; 
function BLOCK STATEMENT return boolean; 
function IF STATEMENT return boolean; 
function CASE STATEMENT return boolean; 
function CASE STATEMENT ALTERNATIVE return boolean; 
function LOOP STATEMENT 1 return boolean; 
function EXCEPTION HANDLER return boolean; 
function ACCEPT STATEMENT return boolean; 
function SELECT STATEMENT return boolean; 
function SELECT STATEMENT TAIL return boolean; 
function SELECT ALTERNATIVE return boolean; 
function SELECT ENTRY CALL return boolean; 

end PARSER 1; 


package body PARSER 1 is 


-- GENERIC DECLARATION --> [GENERIC PARAMETER DECLARATION ?: 
= 7 GENERIC FORMAL PART 
function GENERIC DECLARATION return 1 boolean is 
begin 
put(RESULT FILE,"In generic declaration "); new line(RESULT FILE); 
if (GENERIC | PARAMETER DECLARATION) then 
null; 
end if: 
if (GENERIC FORMAL PART) then 
return(TRUE): 
else 
return (FALSE); 
end if; 
end GENERIC DECLARATION; 


-- GENERIC PARAMETER DECLARATION --> IDENTIFIER LIST : [MODE ?; NAME 
= 7 7 |:= EXPRESSION 2] ; 
ae --> type private [DISCRIMINANT PART ?| 
-_ is PRIVATE TYPE DECLARATION ; 
= --> type private (DISCRIMINANT SRART ?| 
_ is GENERIC TYPE DEFINITION ; 
= --> with procedure PROCEDURE UNIT 
_- --> with function FUNCTION UNIT 
function GENERIC PARAMETER DECLARATION return boolean is 
begin 
put(RESULT FILE, "In generic parameter declaration "); new line(RESULT FILE); 
if (IDENTIFIER LIST) then 
if (BYPASS(TOKEN COLON)) then 
if (MODE) then 


107 


null; 
end if; -- if mode statement 
if (NAME) then -- check for type mark 
if (BYPASS(TOKEN ASSIGNMENT)) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX ERROR("Generic parameter declaration"), 
end if; ia -- if expression statement 
end if; -- if bypass(token assignment) 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic parameter declaration"); 
end if; 7 -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Generic parameter declaration"); 
end if; -- if type mark statement 
else 
SYNTAX ERROR("Generic parameter declaration"), 
end if: 7 -- if bypass(token colon) 


elsif (BYPASS(TOKEN TYPE)) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
if (DISCRIMINANT PART) then 
null: 
end if; -- if discriminant part 
if (BYPASS(TOKEN IS)) then 
if (PRIVATE TYPE DECLARATION) then 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic parameter declaration"); 
end if; -- if bypass(token semicolon) 


elsif (GENERIC TYPE DEFINITION) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic parameter declaration"); 
end if; -- if bypass(token semicolon) 
else i 
SYNTAX ERROR("Generic parameter declaration"); 
end if; -- if private type declaration 
else 7 7 
SYNTAX ERROR("Generic parameter declaration"); 
end if; -- if bypass(token is) 
else 7 
SYNTAX ERROR("Generic parameter declaration"); 
end if; -- if bypass(token identifier) 


elsif (BYPASS(TOKEN WITH)) then 
if (BYPASS(TOKEN PROCEDURE)) then 
DECLARE TYPE := PROCEDURE DECLARE; 
if (PROCEDURE UNIT) then 
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return (TRUE); 


else 
SYNTAX ERROR("Generic parameter declaration"); 
end if; -- if procedure unit statement 


elsif (BYPASS(TOKEN FUNCTION)) then 
DECLARE TYPE := FUNCTION DECLARE; 
if (FUNCTION UNIT) then 7 
return (TRUE); 


else 
SYNTAX ERROR("Generic parameter declaration"); 
end if; -- if function unit statement 
else 7 
SYNTAX ERROR("Generic parameter declaration"); 
end if; -- if bypass(token procedure) 
else 
return (FALSE); 
end if; -- 1f identifier list 


end GENERIC PARAMETER DECLARATION; 


ese see ef ee 2 S22 SB Ses SSeS FF SS S28 BF FST FF FF SFT ST SF ee FF S88 Se ees ees ee ee eeeeeseeuneren eee eee ee ee 


-- GENERIC FORMAL PART --> procedure PROCEDURE UNIT 
-- --> function FUNCTION UNIT 
s --> package PACKAGE DECLARATION 
function GENERIC FORMAL PART return boolean is 
begin 
put(RESULT FILE, "In generic formal part "); new line(RESULT FILE); 
if (BYPASS(TOKEN PROCEDURE)) then 
DECLARE TYPE := PROCEDURE DECLARE; 
if (PROCEDURE UNIT) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic formal part"); 
end if; -- if procedure unit statement 


elsif (BYPASS(TOKEN FUNCTION)) then 
DECLARE TYPE := FUNCTION DECLARE; 
if (FUNCTION UNIT) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic formal part"); 
end if; -- if function unit statement 


elsif (BYPASS(TOKEN PACKAGE)) then 
DECLARE TYPE := PACKAGE DECLARE, 
if (PACKAGE DECLARATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Generic formal part"); 
end if; -- if package declaration 
else 
return (FALSE); 
end if; 
end GENERIC FORMAL PART; 
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-- PROCEDURE UNIT --> identifier [FORMAL PART ?} is SUBPROGRAM BODY 
a --> identifier [FORMAL PART alt 
= --> identifier [FORMAL PART ?] renames NAME ; 
function PROCEDURE UNIT return boolean is 
begin 
put(RESULT FILE, "In procedure unit "); new line(RESULT FILE); 
DECLARATION := TRUE; 
HENRY WRITE ENABLE := TRUE; 
if (BYPASS(TOKEN IDENTIFIER)) then 
if PACKAGE BODY DECLARE then 
WRITE HENRY DATA(LOCAL DECLARE, DUMMY LEXEME, 
~ PROCEDURE TYPE, NONE, LAST RECORD); 
end if; 
SCOPE LEVEL := SCOPE LEVEL + 1; 
if (FORMAL PART) then 
null; 
end if; -- if formal part statement 
if (BYPASS(TOKEN IS)) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END PARAM DECLARE, 
NONE, NEXT HEN); 
CREATE NODE(NEXT HEN, LAST RECORD), 
WRITE LINE COUNT(LAST RECORD.NOMEN, HENRY LINE COUNT, 
_ DUMMY9s, NEXT LINE); 7 
if (SUBPROGRAM BODY) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END PROCEDURE CALL, 
NONE, NEXT HEN); 
CREATE NODE(NEXT HEN, LAST RECORD); 
WRITE LINE COUNT(DUMMY LEXEME, DUMMY9s, HENRY LINE COUNT, 
NE a EN 
CREATE LINE COUNT NODE(NEXT LINE, LAST LINE), 
SCOPE LEVEL := SCOPE JLEV EL 1; 
return (TRUE): 
else 
SYNTAX ERROR("Procedure unit"); 
end if; -- if subprogram body statement 
elsif (BYPASS(TOKEN SEMICOLON)) then 
SCOPE LEVEL := SCOPE LEVEL - 1, 
return (TRUE); 
elsif (BYPASS(TOKEN RENAMES)) then 
if (NAME) then 
if (BYPASS(TOKEN SEMICOLON)) then 
SCOPE LEVEL := SCOPE LEVEL - 1; 
return (TRUE); 
else 
SYNTAX ERROR("Procedure unit"); 
end if; -- if bypass(token semicolon) 
else . 
SYNTAX ERROR("Procedure unit"); 


end if; -- if name statement 
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end if; -- if bypass(token is) 
else 7 
return (FALSE); 
end if; -- if bypass(token identifier) 
end PROCEDURE UNIT; 
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-- SUBPROGRAM BODY --> new NAME (GENERIC ACTUAL PART oe 
-- --> separate ; 
i Laren 
-- --> (DECLARATIVE PART ?| begin SEQUENCE OF STATEMENTS 
-- ‘exception [EXCEPTION HANDLER|+ ?| end [DESIGNATOR ?| ; 
= --> NAME: 

function SUBPROGRAM BODY return boolean is 


NAME POINTER : POINTER; 


begin 
put({RESULT FILE, "In subprogram body "); new line(RESULT FILE); 
NAME POINTER := NEXT HEN; — 
BECLARA TION := TRUE; 
if (BYPASS(TOKEN NEW))then 
HENRY WRITE ENABLE := FALSE; 
if (NAME) then 
if (GENERIC ACTUAL PART) then 
null; 
end if; -- if generic actual part 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Subprogram body"); 
end if; - -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Subprogram body"); 
end if; 7 -- if name statement 


elsif (BYPASS(TOKEN SEPARATE)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if bypass(token semicolon) 


elsif (BYPASS(TOKEN BRACKETS)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if bypass(token semicolon) 


elsif (DECLARATIVE PART) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END DECLARATIONS, 
NONE, NEXT_HEN); 
CREATE NODE(NEXT HEN, LAST RECORD); 
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if (BYPASS(TOKEN BEGIN)) then 
DECLARATION := FALSE; 
if (SEQUENCE OF STATEMENTS) then 
if (BYPASS(TOKEN EXCEPTION)) then 
if (EXCEPTION HANDLER) then 
while (EXCEPTION HANDLER) loop 


null; 
end loop; 
else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if exception handler statement 
end if; -- if bypass(token exception) 


if (BYPASS(TOKEN END)) then 
HENRY WRITE ENABLE := FALSE; 
if (DESIGNATOR) then 
null; 
end if; -- if designator statement 
if (BYPASS(TOKEN SEMICOLON)) then 
DECLARATION := TRUE; 
return (TRUE); 


else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if bypass(token semicolon) 
else 3 
SYNTAX ERROR("Subprogram body"); 
end if; -- if bypass(token end) 
else 7 
SYNTAX ERROR("Subprogram body"); 
end if; -- if sequence of statements 
else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if bypass(token begin) 


elsif (BYPASS(TOKEN BEGIN)) then 
DECLARATION := FALSE; 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END DECLARATIONS, 
NONE, NEXT HEN); 7 
CREATE NODE(NEXT HEN, LAST RECORD); 
if (SEQUENCE OF STATEMENTS) then 
if (BYPASS(TOKEN EXCEPTION)) then 
if (EXCEPTION HANDLER) then 
while (EXCEPTION HANDLER) loop 


null; 
end loop; 
else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if exception handler statement 
end if; -- if bypass(token exception) 


if (BYPASS(TOKEN END)) then 
HENRY WRITE ENABLE := FALSE; 
if (DESIGNATOR) then 
null; 
end if; -- if designator statement 
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if (BYPASS(TOKEN SEMICOLON)) then 
DECLARATION := TRUE 
return (TRUE); 
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else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if bypass(token end) 
else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if sequence of statements 


elsif (NAME) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Subprogram body"); 
end if; -- if bypass(token semicolon) 
else 
return (FALSE), 
end if; -- if bypass(token new) 


end SUBPROGRAM BODY; 
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-- FUNCTION UNIT --> DESIGNATOR FUNCTION UNIT TAIL 
function FUNCTION UNIT return boolean is J - 
begin 
put(RESULT FILE, "In function unit "); new line(RESULT FILE); 
DECLARATION := TRUE; 
HENRY WRITE ENABLE := TRUE; 
if (DESIGNATOR) then 
if PACKAGE BODY DECLARE then 
WRITE HENRY DATA(LOCAL DECLARE, DUMMY LEXEME, FUNCTION TYPE, 
NONE, LAST RECORD); 
WRITE LINE COUNT(LAST RECORD.NOMEN, HENRY LINE COUNT, 
~  DUMMY9s, NEXT LINE); 
end if; 
SCOPE LEVEL :-= SCOPE LEVEL + 1; 
if (FUNCTION UNIT TAIL) then 


SCOPE LEVEL := SCOPE LEVEL - 1; 
return (TRUE); 
else 
SYNTAX ERROR("Function unit"); 
end if; 
else 
return (FALSE); 
end if; 
end FUNCTION UNIT; 


-- FUNCTION UNIT TAIL --> is new NAME [GENERIC ACTUAL PART ?| ; 
= 7 pre [FORMAL PART ?] return NAME FUNCTION BODY 
function FUNCTION UNIT TAIL return boolean is 7 
begin 
put(RESULT FILE, "In function unit tail"); new line(RESULT FILE); 
if (BYPASS(TOKEN IS)) then 
FUNCTION PARAM DECLARE — POE. 
if (BYPASS(TOKEN NEW)) then 
if (NAME) then 
if (GENERIC ACTUAL PART) then 
null; 
end if; -- if generic actual part 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Function unit tail"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Function unit tail"); 
end if; -- if name statement 
else 
SYNTAX ERROR("Function unit tail"); 
end if; -- if bypass(token new) 


elsif (FORMAL PART) then 
FUNCTION PARAM DECLARE := FALSE; 
if (BYPASS(TOKEN RETURN)) then 
if (NAME) then -- check for type mark 
if (FUNCTION BODY) then : 
return (TRUE); 


else 
SYNTAX ERROR("Function unit tail"); 
end if; -- if function body statement 
else 
SYNTAX ERROR("Function unit tail"); 
end if; -- if type mark statement 
else 
SYNTAX ERROR("Function unit tail"); 
end if; -- if bypass(token return) 
elsif (BYPASS(TOKEN RETURN)) then 7 
if (NAME) then -- check for type mark 


if (FUNCTION BODY) then 
return (TRUE); 


else 
SYNTAX ERROR("Function unit tail"); 
end if; -- if function body statement 
else 
SYNTAX ERROR("Function unit tail"); 
end if; -- if type mark statement 
else 
return (FALSE); 
end if; -- if bypass(token is) 


end FUNCTION UNIT TAIL; 
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-- FUNCTION BODY --> is [FUNCTION BODY TAIL ? 
ae => 
function FUNCTION BODY return boolean is 
begin 7 
put(RESULT FILE, "In function body "); new line(RESULT FILE); 
if (BYPASS(TOKEN IS)) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END PARAM DECLARE, NONE, NEXT HE> 
CREATE NODE(NEXT_ HEN, LAST RECORD); - 7 7 
if (FUNCTION BODY TAIL) then 
WRITE LINE COUNT(DUMMY LEXEME, DUMMY9s, HENRY LINE COUNT, 
NEXT LINE); 7 Oo 
CREATE LINE COUNT NODE(NEXT LINE, LAST LINE); 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END FUNCTION TYPE, 
NONE, NEXT_HEN); 7 - 
CREATE NODE(NEXT HEN, LAST RECORD); 
end if - 7 
return (TRUE); 
elsif (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 
else 
return (FALSE); 
end if; 
end FUNCTION BODY; 
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-- FUNCTION BODY TAIL --> separate ; 
= 7 = 8. 
-- --> SUBPROGRAM BODY 
-- --> NAME ; 
function FUNCTION BODY TAIL return boolean is 
begin 
put(RESULT FILE, "In function body tail"); new_line(RESULT FILE); 
if (BYPASS(TOKEN SEPARATE)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Function body tail"); 
end if; -- if bypass(token semicolon) 


elsif (BYPASS(TOKEN BRACKETS)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Function body tail™): 
end if; -- if bypass(token semicolon) 


elsif (SUBPROGRAM BODY) then 
return (TRUE); 
elsif (NAME) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 
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else 


SYNTAX ERROR("Function body tail"); 


end if; -- if bypass(token semicolon) 
else 

return (FALSE); 
end if; -- if bypass(token separate) 


end FUNCTION BODY TAIL; 


-- TASK DECLARATION --> body TASK BODY ; 
es 7 --> [type ?] identifier [is [ENTRY DECLARATION)* 
- REPRESENTATION CLAUSE}* end [identifier ?| ?] ; 
function TASK DECLARATION return boolean is 
begin 
put(RESULT FILE, "In task declaration "); new line(RESULT FILE); 
DECLARATION: — TRG. 
if (BYPASS(TOKEN TYPE)}) then 
null; 
end if; -- if bypass(token type) 
if (BYPASS(TOKEN BODY)) then 
if (TASK BODY) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 
else 
SYNTAX ERROR("Task declaration"); 
end if: 
else 
SYNTAX ERROR("Task declaration"); 
end if; -- if task body statement 
elsif (BYPASS(TOKEN IDENTIFIER)) then 
SCOPE LEVEL := SCOPE LEVEL + 1, 
if (BYPASS(TOKEN IS)) then 
while (ENTRY DECLARATION) loop 
null: 
end loop; 
while (REPRESENTATION CLAUSE) loop 
null; 
end loop; 
if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
null; 
end if; -- if bypass(token identifier) 
if (BYPASS(TOKEN SEMICOLON)) then 
SCOPE LEVEL := SCOPE LEVEL - 1; 
return (TRUE); 


else 
SYNTAX ERROR("Task declaration"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Task declaration"); 
end if; -- if bypass(token end) 
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elsif (BYPASS(TOKEN SEMICOLON)) then 
SCOPE LEVEL := SCOPE LEVEL - 1; 
return (TRUE); 


else 
SYNTAX ERROR("Task declaration"); 
end if; -- if bypass(token is) 
else 
return (FALSE); 
end if; -- if bypass(token body) 


end TASK DECLARATION; 
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-- TASK BODY --> identifier is TASK BODY TAIL 
function TASK BODY return boolean is - 7 
begin 
put(RESULT FILE, "In task body "); new line( RESULT MO UFID) 
if (BYPASS(TOKEN _IDENTIFIER)) then 
SCOPE LEVEL := SCOPE LEVEL + 1; 
if (BYPASS(TOKEN IS)) then 
if (TASK BODY Soom then 
SCOPE LEVEL := SCOPE _LEVEL - 1; 
return (TRUE); 
else 
SYNTAX ERROR("Task body"); 
end if; -- if task body tail statement 
else 
SYNTAX ERROR("Task body"); 
end if; 7 -- if bypass(token_ is) 
else 
return (FALSE); 
end if; -- if bypass(token identifier) 
end TASK BODY; 


-- TASK BODY TAIL --> separate 
-- --> |DECLARATIVE PART ?] begin SEQUENCE OF STATEMENTS 
-- lexception [EXCEPTION “HANDLER | ~ ?] end [identifier ?| 
function TASK BODY TAIL return boolean 1s 
begin 
put(RESULT FILE, "In task body tail"); new _line(RESULT FILE); 
DECLARATION := TRUE; 
if (BYPASS(TOKEN SEPARATE)) then 
return (TRUE); 
elsif (DECLARATIVE PART) then 
if (BYPASS(TOKEN BEGIN)) then 
DECLARATION := FALSE; 
if (SEQUENCE OF STATEMENTS) then 
if (BYPASS(TOKEN EXCEPTION)) then 
if (EXCEPTION HANDLER) then 
while (EXCEPTION HANDLER) loop 
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null; 


end loop; 
else 
SYNTAX ERROR("Task body tail"); 
end if; 7 -- if exception handler statement 
end if; -- if bypass(token exception) 


if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
null; 
end if; -- if bypass(token identifier) 
DECLARATION®— TRUE; 
return (TRUE); 


else 
SYNTAX ERROR("Task body tail"); 
end if; -- if bypass(token end) 
else 
SYNTAX ERROR("Task body tail"); 
end if; -- if sequence of statements 
else 
SYNTAX ERROR("Task body tail"); 
end if; - -- if bypass(token_ begin) 


elsif (BYPASS(TOKEN BEGIN)) then 
DECLARATION := FALSE; 
if (SEQUENCE OF STATEMENTS) then 
if (BYPASS(TOKEN EXCEPTION)) then 
if (EXCEPTION HANDLER) then 
while (EXCEPTION HANDLER) loop 


null: 
end loop; 
else 
SYNTAX ERROR("Task body tail"); 
end if: -- if exception handler statement 
end if: -- if bypass(token exception) 


if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
null; 7 
end if; -- if bypass(token_ identifier) 
DECLARATION. = TRUE. 
return (TRUE); 


else 
SYNTAX ERROR("Task body tail"); 
end if; -- if bypass(token end) 
else 7 
SYNTAX ERROR("Task body tail"); 
end if; -- if sequence of statements 
else a 
return (PALSE), 
end if; -- if bypass(token separate) 


end TASK BODY TAIL; 


-- PACKAGE DECLARATION --> body PACKAGE BODY 
= --> identifier PACKAGE UNIT 
function PACKAGE DECLARATION return boolean is 
begin 
put(RESULT FILE, "In package declaration '); new line(RESULT FILE); 
DECLARATION := TRUE; 
HENRY WRITE ENABLE := TRUE; 
if (BYPASS(TOKEN BODY)) then 
PACKAGE BODY DECLARE := TRUE; 
HENRY WRITE ENABLE := FALSE; 
if (PACKAGE BODY) then 
return (TRUE); 


else 
SYNTAX ERROR("Package declaration"); 
end if; -- if package unit statement 


elsif (BYPASS(TOKEN IDENTIFIER)) then 
WRITE HENRY DATA(LOCAL DECLARE, DUMMY LEXEME, PACKAGE TYPE, 
NONE, LAST -RECORD); 
SCOPE LEVEL := SCOPE LEVEL + 1; 
if (PACKAGE _UNIT) then 
SCOPE LEVEL := SCOPE LEVEL - 1, 
return (TRUE): 


else 
SYNTAX ERROR("Package declaration"); 
end if; -- if package unit tail statement 
else 
return (FALSE); 
end if; -- if bypass(token package) 


end PACKAGE DECLARATION; 
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-- PACKAGE BODY --> identifier is PACKAGE BODY TAIL 
function PACKAGE _BODY return boolean is 
begin 
put(RESULT FILE, "In package body "); new line(RESULT FILE); 


if (BYPASS(TOKEN IDENTIFIER)) then 
SCOPE LEVEL := SCOPE LEVEL + 1; 
if (BYPASS(TOKEN IS)) then 
if (PACKAGE BODY TAIL) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END PACKAGE TYPE, 
~ NONE, NEXT_HEN); 
SCOPE LEVEL := SCOPE LEVEL - 1; 
return (TRUE); 


else 
SYNTAX ERROR("Package body"); 
end if; 7 -- if package body tail statement 
else 
SYNTAX ERROR("Package body"); 
endif, -- if bypass(token is) 
else 
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return (FALSE); 
end if; -- if bypass(token identifier) 
end PACKAGE BODY; 
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-- PACKAGE BODY TAIL --> separate ; 
= => [DECLARATIVE PART ?] [begin SEQUENCE OF STATEMENTS 
-- lexception [EXCEPTION HANDLER (+ ?] ?| 
-- end identifier ?| ; 
function PACKAGE BODY TAIL return boolean 1s 
begin 
put(RESULT FILE, "In package body tail"); new line(RESULT FILE); 
DECLARATION := TRUE; 
if (BYPASS(TOKEN SEPARATE)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Package body tail"); 
end if; -- if bypass(token semicolon) 


elsif (DECLARATIVE PART) then 
DECLARATION := FALSE; 
if (BYPASS(TOKEN BEGIN)} then 
if (SEQUENCE OF STATEMENTS) then 
if (BYPASS(TOKEN EXCEPTION)) then 
if (EXCEPTION HANDLER) then 
while (EXCEPTION HANDLER) loop 


null; 
end loop; 
else 
SYNTAX ERROR("Package body tail"); 
end if; -- if exception handler statement 
end if; -- if bypass(token exception) 


if (BYPASS(TOKEN END)) then 
HENRY WRITE ENABLE := FALSE; 
if (BYPASS(TOKEN IDENTIFIER)) then 
null; 7 
end if; -- if bypass(token identifier) 
if (BYPASS(TOKEN SEMICOLON)) then 
DECLARATION := TRUE: 
return (TRUE); 


else 
SYNTAX ERROR("Package body tail"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Package body tail"); 
end if; -- if bypass(token end) 
else 7 
SYNTAX ERROR("Package body tail"); 
end if; -- if sequence of statements 


elsif (BYPASS(TOKEN END)) then 
HENRY WRITE ENABLE := FALSE: 
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if (BYPASS(TOKEN IDENTIFIER)) then 
null; - 
end if; -- if bypass(token identifier) 
if (BYPASS(TOKEN SEMICOLON)) then 
DECLARATION := TRUE; 
return (TRUE); 
else 
SYNTAX ERROR("Package body tail"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Package body tail"); 
end if; -- if bypass(token begin) 
elsif (BYPASS(TOKEN BEGIN}) then 
DECLARATION := FALSE; 
if (SEQUENCE OF STATEMENTS) then 
if (BYPASS(TOKEN EXCEPTION)) then 
if (EXCEPTION HANDLER) then 
while (EXCEPTION HANDLER) loop 


null; 
end loop; 
else 
SYNTAX ERROR("Package body tail"); 
end if; -- if exception handler statement 
end if, -- if bypass(token exception) 


if (BYPASS(TOKEN END)) then 

HENRY WRITE ENABLE := FALSE; 

if (BYPASS(TOKEN IDENTIFIER)) then 
null; 

end if; -- if bypass(token identifier) 

if (BYPASS(TOKEN SEMICOLON)) then 
DECLARATION := TRUE; 
return (TRUE); 


else 
SYNTAX ERROR("Package body tail"); 
end if; 7 -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Package body tail"); 
end if, “ -- if bypass(token end) 
else 
SYNTAX ERROR("Package body tail"); 
end if; - -- if sequence of statements 


elsif (BYPASS(TOKEN END)) then 
HENRY WRITE ENABLE := FALSE; 
if (BYPASS(TOKEN IDENTIFIER)) then 
null; 
end if; -- if bypass(token identifier) 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Package body tail"); 
end if; -- if bypass(token semicolon) 
else 
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return (FALSE); 
end if; -- if bypass(token separate) 
end PACKAGE BODY TAIL; 


-- PACKAGE UNIT --> is PACKAGE TAIL END 
=~ ~ ..> renames NAME ; 
function PACKAGE UNIT return boolean is 
begin 
put(RESULT FILE, "In package unit "); new line(RESULT FILE); 
if (BYPASS(TOKEN IS)) then 
if (PACKAGE TAIL END) then 
return (TRUE); 
else 
SYNTAX ERROR("Package unit"); 
end if; 
elsif (BYPASS(TOKEN RENAMES)) then 
if (NAME) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Package unit"); 
end if; -- if bypass(token semicolon) 
else . 
SYNTAX ERROR("Package unit"); 
end if: -- if name statement 
else 
return (FALSE); 
end if: -- if bypass(token is) 


end PACKAGE UNIT; 


-- PACKAGE TAIL END --> new NAME |GENERIC ACTUAL PART ?| ; 
-- --> [BASIC DECLARATIVE ITEM)* [private 
-- [BASIC DECLARATIVE ITEM]* ?] end [identifier 7] ; 
function PACKAGE TAIL END return boolean is 
begin » 7 
put(RESULT FILE,"In package tail end"); new line(RESULT FILE); 
if (BYPASS(TOKEN NEW)) then — 7 7 
if(NAME) then 
if (GENERIC ACTUAL PART) then 
null: 7 
end if; -- if generic actual part statement 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 7 


else 
SYNTAX ERROR("Package tail end"); 
end if; -- if bypass(token semicolon) 
else 


SYNTAX ERROR("Package tail end"); 
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end if; -- if name statement 
elsif (BASIC DECLARATIVE ITEM) then 
while (BASIC DECLARATIVE ITEM) loop 
null; - 
end loop; 
if (BYPASS(TOKEN PRIVATE)) then 
while (BASIC DECLARATIVE ITEM) loop 
null; 
end loop; 
end if; -- if bypass(token private) 
if (BYPASS(TOKEN END)) then 
HENRY WRITE ENABLE := FALSE; 
if (BYPASS(TOKEN IDENTIFIER)) then 
null; - 
end if; 
if (BYPASS(TOKEN SEMICOLON)) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END PACKAGE DECLARE, 
NONE, NEXT HEN); 7 ; - 
CREATE NODE(NEXT HEN, LAST RECORD), 
return (TRUE); 


else 
SYNTAX ERROR("Package tail end"); 
end if; -- if bypass(token semicolon) 
else 7 
SYNTAX ERROR("Package tail end"); 
end if; -- if bypass(token end) 


elsif (BYPASS(TOKEN PRIVATE)) then 
while (BASIC DECLARATIVE ITEM) loop 
null; 
end loop; 
if (BYPASS(TOKEN END)) then 
HENRY WRITE ENABLE := FALSE; 
if (BYPASS(TOKEN IDENTIFIER)) then 
null: 
end if; 
if (BYPASS(TOKEN SEMICOLON)) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END PACKAGE DECLARE, 
~ NONE, NEXT_HEN); 
CREATE NODE(NEXT HEN, LAST RECORD); 
return (TRUE); 


else 
SYNTAX ERROR("Package tail end"); 
end if; a -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Package tail end"); 
end if; a -- if bypass(token end) 


elsif (BYPASS(TOKEN END)) then 
HENRY WRITE ENABLE := FALSE; 
if (BYPASS(TOKEN IDENTIFIER)) then 
null; 

end if; 

if (BYPASS(TOKEN SEMICOLON)) then 
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WRITE HENRY DATA(BLANK, DUMMY LEXEME, END PACKAGE DECLARE, 
NONE, NEXT HEN); | 
CREATE NODE(NEXT HEN, LAST RECORD); | 
return (TRUE); 
else 


SYNTAX ERROR("Package tail end"); 


end if; -- if bypass(token semicolon) 

else 
return (FALSE); 

end if; -- if bypass(token new} 


end PACKAGE TAIL END; 


-- BASIC DECLARATIVE ITEM --> BASIC DECLARATIVE 
-- --> REPRESENTATION CLAUSE 
-- --> use WITH OR USE CLAUSE 
function BASIC DECLARATIVE ITEM return boolean is 
begin 
put(RESULT FILE, "In basic declarative item "); new line(RESULT FILE); 
HENRY WRITE ENABLE := TRUE; 
if (BASIC. DECLARATION) then 
HENRY WRITE ENABLE := FALSE; j 
return (TRUE): 
elsif (REPRESENTATION CLAUSE) then | 
return (TRUE); 
elsif (BYPASS(TOKEN USE)) then 
if (WITH OR USE CLAUSE) then 
return (TRUE); 
else 
SYNTAX ERROR("Basic declarative item"); 
end if; 7 
else 
return (FALSE); 
end if; 
end BASIC DECLARATIVE ITEM; 


-- DECLARATIVE PART--> [BASIC | DECLARATIVE _ITEM]* [LATER DECLARATIVE ITER 
function DECLARATIVE PART return boolean is 7 - 
begin 
put(RESULT FILE, "In declarative part "); new line(RESULT FILE); 

while (BASIC | DECLARATIVE ITEM) loop 

null; 

end loop; 

while (LATER DECLARATIVE ITEM) loop 

null; 7 - 

end loop; 

return (TRUE); 
end DECLARATIVE PART; 
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-- BASIC DECLARATION --> type TYPE DECLARATION 
= --> subtype SUBTYPE DECLARATION 
rs --> procedure PROCEDURE UNIT 
es --> function FUNCTION UNIT 
= --> package PACKAGE DECLARATION 
-- --> generic GENERIC DECLARATION 
Bs --> IDENTIFIER DECLARATION 
-- --> task TASK DECLARATION 
function BASIC DECLARATION return boolean is 
begin - 
put(RESULT FILE, "In basic declaration "); new line(RESULT FILE); 
if (BYPASS(TOKEN iesaeiayy then 
if (TYPE DECLARATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Basic declaration"); 
end if; 
elsif (BYPASS(TOKEN SUBTYPE)) then 
if (SUBTYPE DECLARATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Basic declaration"); 
end if; 
elsif (BYPASS(TOKEN PROCEDURE)) then 
DECLARE TYPE := PROCEDURE DECLARE, 
if (PROCEDURE UNIT) then 
HENRY WRITE ENABLE := FALSE; 
return (TRUE); 


else 
SYNTAX ERROR("Basic declaration"); 
end if; -- if procedure unit statement 


elsif (BYPASS(TOKEN FUNCTION)) then 
DECLARE TYPE := FUNCTION DECLARE; 
if (FUNCTION _UNIT) then 
HENRY WRITE ENABLE := FALSE; 
return (TRUE); 


else 
SYNTAX ERROR("Basic declaration"); 
end if; -- if function unit statement 


elsif (BYPASS(TOKEN PACKAGE)) then 
DECLARE TYPE := PACKAGE DECLARE; 
if (PACKAGE DECLARATION) then 
return (TRUE); 


else 
SYNTAX ERROR("Basic declaration"); 
end if; -- if package declaration 


elsif (BYPASS(TOKEN GENERIC)) then 
if (GENERIC DECLARATION) then 
return (TRUE); 


else 


125 


SYNTAX ERROR("Basic declaration"); 
end if; 7 -- if generic declaration 
elsif (IDENTIFIER DECLARATION) then 
HENRY WRITE ENABLE := FALSE; 
return (TRUE); 
elsif (BYPASS(TOKEN TASK)) then 
DECLARE TYPE := TASK DECLARE; 
if (TASK DECLARATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Basic declaration"); 
end if; 
else 
return (FALSE); 
end if: 
end BASIC DECLARATION; 


-- LATER DECLARATIVE ITEM --> PROPER BODY 

-- --> generic GENERIC DECLARATION 

= --> use WITH OR USE CLAUSE 
function LATER DECLARATIVE ITEM return boolean is 


begin 
put(RESULT FILE, "In later declarative item"); new line(RESULT FILE); 
if (PROPER BODY) then -- check for body declaration 


return (TRUE); 
elsif (BYPASS(TOKEN GENERIC)) then 
if (GENERIC DECLARATION) then 
return (TRUE); 


else 
SYNTAX ERROR("Later declarative item"); 
end if; -- if generic declaration 


elsif (BYPASS(TOKEN USE}) then 
if (WITH OR USE CLAUSE) then 
return (TRUE); 
else 
SYNTAX ERROR("Later declarative item"); 
end if; -- if with or use clause 
else ce 
return (FALSE); 
end if; 
end LATER DECLARATIVE ITEM; 


-- PROPER BODY --> procedure PROCEDURE UNIT 
= --> function FUNCTION UNIT 

2 --> package PACKAGE DECLARATION 
= --> task TASK DECLARATION 
function PROPER BODY return boolean is 


begin 
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put(RESULT FILE, "In proper _body "); new line(RESULT FILE); 
if (By PASS(TOKEN -PROCEDURE)) then 
DECLARE TYPE := PROCEDURE DECLARE; 
if (PROCEDURE _UNIT) then 
return (TRUE); 
else 
SYNTAX ERROR("Proper body"); 
end if; -- if procedure unit statement 
elsif (BYPASS(TOKEN FUNCTION)) then 7 
DECLARE TYPE := FUNCTION DECLARE; 
if (FUNCTION _UNIT) then 
return (TRUE); 
else 
SYNTAX ERROR("Proper body"); 
end if; -- if function unit statement 
elsif (BYPASS(TOKEN PACKAGE)) then > 
DECLARE TYPE := PACKAGE DECLARE; 
if (PACKAGE _DECLARATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Proper body"); 
end if; -- if package declaration 
elsif (BYPASS(TOKEN TASK)) then 
DECLARE TYPE := TASK DECLARE; 
if (TASK DECLARATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Proper body"); 
end if; 
else 
return (FALSE); 
end if; -- if bypass(token procedure} 
end PROPER BODY; 


seeeeweeere wee eet ee etwe eee meee ec eee eee eeee eee ew eewe eee ee eee eee eewoeee ee eee eee ew ee eee eee = 


-- SEQUENCE OF STATEMENTS --> STATEMENT]+ 
function SEQUENCE OF STATEMENTS return boolean is 
begin 
put(RESULT FILE, "In sequence of statements "); new line(RESULT FILE); 

if (STATEMENT) then 

while (STATEMENT) loop 
null; 
end loop; 
return (TRUE); 
else 
return (FALSE); 

end if; 

end SEQUENCE OF STATEMENTS; 





-- STATEMENT --> |LABEL ?| SIMPLE STATEMENT 
--> {LABEL ?| COMPOUND STATEMENT 
fineton STATEMENT recut boolean is 
begin 
put(RESULT FILE, "In statement "); new line(RESULT FILE); 
if (LABEL) then 
null; 
end if: 
if (SIMPLE STATEMENT) then 
return (TRUE); 
elsif (COMPOUND STATEMENT) then 
return (TRUE); 
else 
return (FALSE); 
end if; 
end STATEMENT; 


weve ese ewe ewaean eee ee ee eee ememe ewe ee ewe ee Pet ee ete ee ewe ee fee ee et eet eset eeee eee ee eeweeeeeees = 


-- COMPOUND STATEMENT --> if IF STATEMENT 
Be --> case CASE STATEMENT 
-- --> LOOP STATEMENT 
-- --> BLOCK STATEMENT 
os --> accept ACCEPT STATEMENT 
= --> select SELECT STATEMENT 
function COMPOUND STATEMENT return boolean is 
begin 
put(RESULT FILE, "In compound statement "); new line(RESULT FILE); 
if (BYPASS(TOKEN IF)) then 7 
NESTING METRIC(IF CONSTRUCT); 
if (IF STATEMENT) then 
return (TRUE); 


else 
SYNTAX ERROR("Compound statement"); 
end if; -- if if statement 


elsif (BYPASS(TOKEN CASE)) then 
NESTING METRIC(CASE CONSTRUCT): 
if (CASE STATEMENT) then 
return (TRUE); 


else 
SYNTAX ERROR("Compound statement"); 
end if; -- if case statement 


elsif (LOOP STATEMENT) then 
return (TRUE); 
elsif (BLOCK STATEMENT) then 
return (TRUE): 
elsif (BYPASS(TOKEN ACCEPT)) then 
if (ACCEPT STATEMENT) then 
return (TRUE); 
else 
SYNTAX ERROR("Compound statement"); 
end if; 7 
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elsif (BYPASS(TOKEN SELECT)) then 
if (SELECT STATEMENT) then 
return (TRUE); 
else 
SYNTAX ERROR("Compound statement"); 
end if; 
else 
return (FALSE); 
end if; 
end COMPOUND STATEMENT; 


-- BLOCK STATEMENT --> [identifier : ?] [declare DECLARATIVE PART ?| 
: begin SEQUENCE OF STATEMENTS (exception 
= ‘EXCEPTION HANDLER|-+ ?| ?| end [identifier ?| ; 
function BLOCK STATEMENT return boolean is 
DECLARE STATUS : boolean; 
begin 
put(RESULT FILE, "In block statement "); new line(RESULT FILE); 
if (DECLARATION) then 
DECLARE STATUS := TRUE; 
else 
DECLARATION := TRUE; 
DECLARE STATUS := FALSE; 
end if; 
DECLARE TYPE := BLOCK DECLARE; 
if (BYPASS(TOKEN IDENTIFIER)) then 
SCOPE LEVEL := SCOPE LEVEL + 1; 
if (BYPASS(TOKEN COLON)) then 
SCOPE LEVEL := SCOPE LEVEL - 1; 


else 
SYNTAX ERROR("Block statement"); 
end if; -- if bypass(token colon) 
else 
DECLARE TYPE := VARIABLE DECLARE; 
end if; 7 -- if bypass(token identifier) 


if (BYPASS(TOKEN DECLARE)) then 
SCOPE LEVEL := SCOPE_LEVEL + 1; 
if (DECLARATIVE PART) then 


null; 
else 
SYNTAX ERROR("Block statement"); 
end if; > -- if declarative part statement 
end if; -- if bypass(token declare) 


if (BYPASS(TOKEN BEGIN)) then 
DECLARATION := FALSE; 
if (SEQUENCE OF STATEMENTS) then 
if (BYPASS(TOKEN EXCEPTION)) then 
if (EXCEPTION HANDLER) then 
while (EXCEPTION HANDLER) loop 


null; 
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end loop; 


else 
SYNTAX ERROR("Block statement"); 
end if; -- if exception handler statement 
end if: -- if bypass(token exception) 


if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
null; 
end if; -- if bypass(token identifier) 
if (BYPASS(TOKEN SEMICOLON)) then 
SCOPE LEVEL := SCOPE LEVEL - 1; 
DECLARATION. = TRUE. 
return (TRUE); 


else 
SYNTAX ERROR("Block statement"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Block statement"); 
end if; -- if bypass(token end) 
else 
SYNTAX ERROR("Block statement"); 
end if; -- if sequence of statements 
else 


if not (DECLARE STATUS) then 
DEGLARA TION <= his. 
end if; 
return (FALSE); 
end if; -- if bypass(token begin) 
end BLOCK STATEMENT, 
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-- IF STATEMENT --> EXPRESSION then SEQUENCE OF STATEMENTS 
-- elsif EXPRESSION then SEQUENCE OF STATEMENTS]* 
-- lelse SEQUENCE OF STATEMENTS ?| end if ; 
function IF STATEMENT return boolean is 
begin 
put(RESULT FILE, "In if statement "); new line(RESULT FILE); 
if (EXPRESSION) then 
if (BYPASS(TOKEN THEN)) then 
if (SEQUENCE OF STATEMENTS) then 
while (BYPASS(TOKEN ELSIF)) loop 
if (EXPRESSION) then 
if (BYPASS(TOKEN THEN)) then 
if not (SEQUENCE -OF STATEMENTS) then 
SYNTAX ERROR("If statement"); 


end if; -- if not sequence of statements 
else 
SYNTAX ERROR("If statement"); 
end if; -- if bypass(token then) 
else - 


SYNTAX ERROR("If statement"); 


130 


end if; -- if expression statement 
end loop; 


if (BYPASS(TOKEN ELSE)) then 
if (SEQUENCE OF STATEMENTS) then 


null; 
else 
SYNTAX ERROR("If statement"); 
end if; -- if sequence of statements 
end if; -- if bypass(token_ else) 


if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN IF)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
NESTING METRIC(IF END) 
return (TRUE); 7 


’ 


else 
SYNTAX ERROR("If statement"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("If statement"); 
end if; -- if bypass(token_ if) 
else 
SYNTAX ERROR("If statement"); 
end if; -- if bypass(token end) 
else - 
SYNTAX ERROR("If statement"); 
end if; -- if sequence of statements 
else 7 
SYNTAX ERROR("If statement"); 
end if; -- if bypass(token then) 
else 
return (FALSE); 
end if; -- if expression statement 


end IF STATEMENT; 


-- CASE STATEMENT --> EXPRESSION is |;CASE STATEMENT ALTERNATIVE]+ end case ; 
function CASE STATEMENT return boolean is 
begin 7 
put(RESULT FILE, "In case statement "); new line(RESULT FILE); 
if (EXPRESSION) then 
if (BYPASS(TOKEN IS)) then 
if (CASE STATEMENT ALTERNATIVE) then 
while (CASE STATEMENT ALTERNATIVE) loop 
null; 
end loop; 
if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN CASE)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
NESTING METRIC(CASE END); 
return (TRUE); 


else 
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SYNTAX ERROR("Case statement"); 


end if, -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Case statement"); 
end if; a -- if bypass(token case) 
else 
SYNTAX ERROR("Case statement"); 
end if; 7 -- if bypass(token end) 
else 
SYNTAX ERROR("Case statement"); 
end if; 7 -- if case statement alternative 
else 
SYNTAX ERROR("Case statement"); 
end if; -- if bypass(token_ is) 
else 
return (FALSE); 
end if; -- if expression statement 


end CASE STATEMENT; 


-- CASE STATEMENT ALTERNATIVE --> when CHOICE || CHOICE]* => 
-- SEQUENCE OF STATEMENTS 
function CASE STATEMENT ALTERNATIVE return boolean is 
begin 
put(RESULT FILE, "In case statement alternative "); new line(RESULT FILE); 
if (BYPASS(TOKEN WHEN)) then 7 
if (CHOICE) then — 
while (BYPASS(TOKEN BAR)) loop 
if not (CHOICE) then 
SYNTAX ERROR("Case statement alternative"); 
end if; -- if not choice statement 
end loop; 
if (BYPASS(TOKEN ARROW)) then 
if (SEQUENCE OF STATEMENTS) then 


return (TRUE); 


else 
SYNTAX ERROR("Case statement alternative"); 
end if; -- if sequence of statements 
else 
SYNTAX ERROR("Case statement alternative"); 
end if; -- if bypass(token arrow) 
else 7 
SYNTAX ERROR("Case statement alternative"); 
end if; -- if choice statement 
else 
return (FALSE); 
end if; -- if bypass(token when) 


end CASE STATEMENT ALTERNATIVE; 


-- LOOP STATEMENT --> |identifier : ?| ITERATION SCHEME 7] loop 
-- SEQUENCE OF STATEMENTS end loop /identifier 7} ; 
function LOOP STATEMENT return boolean is 
begin 
put(RESULT FILE, "In loop statement "); new line(RESULT FILE); 
if (BYPASS(TOKEN IDENTIFIER)) then 7 
if (BYPASS(TOKEN COLON)) then 


null: 
else 
SYNTAX ERROR("Loop statement"); 
end if; -- if bypass(token colon) 
end if; -- if bypass(token identifier) 


if (ITERATION SCHEME) then 
NO ITERATION := FALSE; 
end if; -- if iteration scheme statement 
if (BYPASS(TOKEN LOOP)) then = 
if (NO_ITERATION) then 
NESTING METRIC(LOOP CONSTRUCT); 
else 7 7 
NO ITERATION := TRUE: 
end if; 
if (SEQUENCE OF STATEMENTS) then 
if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN LOOP)) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
null; 
end if; -- if bypass(token identifier) 
if (BYPASS(TOKEN SEMICOLON)) then 
NESTING METRIC(LOOP END); 
return (TRUE); 


else 
SYNTAX ERROR("Loop statement"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Loop statement"); 
end if; ia -- if bypass(token loop) 
else 
SYNTAX ERROR("Loop statement"); 
end if; - -- if bypass(token end) 
else 
SYNTAX ERROR("Loop statement"); 
end if; 7 -- if sequence of statements 
else 
return (FALSE); 
end if; -- if bypass(token loop) 


end LOOP STATEMENT; 
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-- EXCEPTION HANDLER --> when EXCEPTION CHOICE | EXCEPTION CHOICE|* => 
= SEQUENCE OF STATEMENTS 
function EXCEPTION HANDLER return boolean is 
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begin 
put(RESULT FILE, "In exception handler "); new line(RESULT FILE); 
if (BYPASS(TOKEN WHEN)) then 
if (EXCEPTION CHOICE) then 
while (BYPASS(TOKEN BAR)) loop 
if not (EXCEPTION CHOICE) then 
SYNTAX ERROR("Exception handler"); 
end if; . -- if not exception choice 
end loop; 
if (BYPASS(TOKEN ARROW)) then 
if (SEQUENCE OF STATEMENTS) then 


return (TRUE); 


else 
SYNTAX ERROR("Exception handler"); 
end if; -- if sequence of statements 
else 
SYNTAX ERROR("Exception handler"); 
end if; 7 -- if bypass(token arrow) 
else 
SYNTAX ERROR("Exception handler"); 
end if; - -- if exception choice statement 
else 
return (FALSE); 
end if; -- if bypass(token-when) 


end EXCEPTION HANDLER; 


-- ACCEPT STATEMENT --> identifier (EXPRESSION) ?| /FORMAL PART ? 

= ido SEQUENCE OF STATEMENTS end [identifier ?] ?) ; 
function ACCEPT STATEMENT return boolean is 
begin 
put(RESULT FILE, "In accept statement "); new line(RESULT FILE); 

if (BYPASS(TOKEN IDENTIFIER)) then 

if (BYPASS(TOKEN LEFT PAREN)) then 
if (EXPRESSION) then | 


if (BYPASS(TOKEN RIGHT PAREN)) then 


null; 
else 
SYNTAX ERROR("Accept statement"); 
end if; -- if bypass(token right paren) 
else 7 - 
SYNTAX ERROR("Accept statement"); 
end if; -- if expression statement 
end if; -- if bypass(token left paren) 
if (FORMAL PART) then 7 
null; 7 
end if; -- if formal part statement 


if (BYPASS(TOKEN DO)) then 
if (SEQUENCE OF STATEMENTS) then 
if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
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null: 


end if; -- if bypass(token identifier) 
else 
SYNTAX ERROR("Accept statement"); 
end if; -- if bypass(token end) 
else 
SYNTAX ERROR("Accept statement"); 
end if; ~- if sequence of statements 
end if; -- if bypass(token do) 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Accept statement"); 
end if; -- if bypass(token semicolon) 
else 7 
return (FALSE); 
end if; -- if bypass(token identifier) 


erdeaCCEPT STATEMENT; 
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-- SELECT STATEMENT --> SELECT STATEMENT TAIL SELECT ENTRY CALL end select ; 
function SELECT STATEMENT return boolean is 
begin 
put(RESULT FILE, "In select statement "); new line(RESULT FILE); 
if (SELECT STATEMENT TAIL) then 
if (SELECT ENTRY CALL) then 
if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN SELECT)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Select statement"); 
end if; . -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Select statement"); 
end if; 7 -- if bypass(token_ select) 
else 
SYNTAX ERROR("Select statement"); 
end if; . -- if bypass(token_ end) 
else 
SYNTAX ERROR("Select statement"); 
end if; -- if select entry call statement 
else 
return (FALSE); 
end if; -- if select statement tail 


end SELECT STATEMENT; 


-- SELECT STATEMENT TAIL --> SELECT ALTERNATIVE lor SELECT ALTERNATIVE]* 
-- --> NAME ; . (SEQUENCE. OF STATEMENTS ?] 
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function SELECT STATEMENT TAIL return boolean is 
begin 
put(RESULT FILE, "In select statement tail"); new_line(RESULT FILE); 
if (SELECT ALTERNATIVE) then 
while (BYPASS(TOKEN OR)) loop 
if not (SELECT ALTERNATIVE) then 
SYNTAX ERROR("Select statement tail"); 
end if; 
end loop; 
return (TRUE); 
elsif (NAME) then -- check for entry call statement 
if (BYPASS(TOKEN SEMICOLON)) then 
if (SEQUENCE OF STATEMENTS) then 


null; 
end if; -- if sequence of statements 
return (TRUE); 
else 
SYNTAX ERROR("Select statement tail"); 
end if; -- if bypass(token semicolon) 
else 
return (FALSE); 
end if; -- if select alternative statement 


end SELECT STATEMENT TAIL; 
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-- SELECT ALTERNATIVE --> [when EXPRESSION => ?} accept ACCEPT STATEMENT 
-- SEQUENCE OF STATEMENTS ?| 
-- --> when EXPRESSION => ?] delay DELAY STATEMENT 
- SEQUENCE OF STATEMENTS ?| 
-- --> when EXPRESSION => ?) terminate ; 
function SELECT ALTERNATIVE return boolean is 
begin 
put(RESULT FILE, "In select alternative "); new line(RESULT FILE); 
if (BYPASS(TOKEN WHEN)) then 
if (EXPRESSION) then 
if (BYPASS(TOKEN ARROW)) then 


null; 
else 
SYNTAX ERROR("Select alternative"); 
end if; -- if bypass(token arrow) 
else - 
SYNTAX ERROR("Select alternative"); 
end 1f; -- if expression statement 
end if; -- if bypass(token when) 


if (BYPASS(TOKEN ACCEPT)) then 
if (ACCEPT STATEMENT) then 
if (SEQUENCE OF STATEMENTS) then 
null; 
end if; -- if sequence of statements 
return (TRUE); 


else 
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SYNTAX ERROR("Select alternative"); 
end if; -- if accept statement 
elsif (BYPASS(TOKEN DELAY)) then : 
if (DELAY STATEMENT) then 
if (SEQUENCE OF STATEMENTS) then 


null; 
end if; -- if sequence of statements 
return (TRUE); 
else 
SYNTAX ERROR("Select alternative"); 
end if; -- if delay statement 


elsif (BYPASS(TOKEN TERMIiNATE)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Select alternative"); 
end if; -- if bypass(token semicolon) 
else 
return (FALSE); 
end if; -- if bypass(token accept) 


end SELECT ALTERNATIVE; 


-- SELECT ENTRY CALL --> else SEQUENCE OF STATEMENTS 
-- --> or delay DELAY STATEMENT [SEQUENCE OF STATEMENTS ?) 
function SELECT ENTRY CALL return boolean is 
begin 
put(RESULT FILE, "In select entry call"); new line(RESULT FILE); 
if (BYPASS(TOKEN ELSE)) then 
if (SEQUENCE OF STATEMENTS) then 
return (TRUE); 
else 
SYNTAX ERROR("Select entry call"); 
end if; 7 -- if sequence of statements 
elsif (BYPASS(TOKEN OR)) then 
if (BYPASS(TOKEN DELAY)) then 
if (DELAY STATEMENT) then 
if (SEQUENCE OF STATEMENTS) then 


null; 
end if; -- if sequence of statements 
return (TRUE); 
else 
SYNTAX ERROR("Select entry call"); 
end if; 7 -- if delay statement 
else 
SYNTAX ERROR("Select entry call"); 
end if; - -- if bypass(token delay) 
else 
return (FALSE); 
end if; -- if bypass(token_ else) 


end SELECT ENTRY CALL; 
137 


end PARSER 1; 
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TITLE: AN ADA SOFTWARE METRIC 


MODULE NAME: PACKAGE PARSER 2 
DATE CREATED: 18 JUL 86 
LAST MODIFIED: 30 MAY 87 


AUTHORS: LCDR JEFFREY L. NIEDER 
LT KARL S. FAIRBANKS, JR. 
LCDR PAUL M. HERZIG 
DESCRIPTION: This package contains thirty-three functions 
that are the middle level productions for our top-down, 
recursive descent parser. Each function is preceded 
by the grammaar productions they are implementing. 
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ith PARSER 3, PARSER 4, HENRY GLOBAL, HENRY, BYPASS FUNCTI@Ggy, 
BYPASS SUPPORT FUNCTIONS, GLOBAL PARSER, GLOBAL, TEXT IO; 


use PARSER 3, PARSER 4, HENRY GLOBAL, HENRY, BYPASS FUNCTION, 


BYPASS SUPPORT FUNCTIONS, GLOBAL PARSER, GLOBAL, TEXT IO; 


package PARSER 2 is 


IDENT DECLARE: BOOLEAN := FALSE; 

function GENERIC ACTUAL PART return boolean; 
function GENERIC ASSOCIATION return boolean; 

function GENERIC FORMAL PARAMETER return boolean; 
function GENERIC TYPE DEFINITION return boolean; 
function PRIVATE TYPE DECLARATION return boolean; 
function TYPE DECLARATION return boolean; 

function SUBTYPE DECLARATION return boolean; 
function DISCRIMINANT PART return boolean; 

function DISCRIMINANT SPECIFICATION return boolean; 
function TYPE DEFINITION return boolean; 

function RECORD TYPE DEFINITION return boolean; 
function COMPONENT LIST return boolean; 

function COMPONENT DECLARATION return boolean; 
function VARIANT PART return boolean; 

function VARIANT return boolean; 

function WITH OR USE CLAUSE return boolean; 

function FORMAL PART return boolean; 

function IDENTIFIER DECLARATION return boolean; 
function IDENTIFIER DECLARATION TAIL return boolean; 
function EXCEPTION TAIL return boolean; 

function EXCEPTION CHOICE return boolean; 

function CONSTANT TERM return boolean; 
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function IDENTIFIER TAIL return boolean; 

function PARAMETER SPECIFICATION return boolean; 

function IDENTIFIER LIST return boolean; 

function MODE return boolean; 

function DESIGNATOR return boolean; 

function SIMPLE STATEMENT return boolean; 

function ASSIGNMENT OR PROCEDURE CALL return boolean; 

function LABEL return boolean; - 

function ENTRY DECLARATION return boolean; 

function REPRESENTATION CLAUSE return boolean; 

function RECORD REPRESENTATION CLAUSE return boolean; 
end PARSER 2; 7 


package body PARSER 2 is 


-- GENERIC ACTUAL PART --> (GENERIC ASSOCIATION |, GENERIC ASSOCIATION)* ) 
function GENERIC ACTUAL PART return boolean is 
begin 
if (BYPASS(TOKEN LEFT PAREN)) then 
if (GENERIC ASSOCIATION) then 
while (BYPASS(TOKEN COMMA)) loop 
if not (GENERIC ASSOCIATION) then 
SYNTAX ERROR("Generic actual part"); 
end if; 7 -- if not generic association 
end loop; 
if (BYPASS(TOKEN RIGHT PAREN)) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic actual part"); 
end if; - -- if bypass(token right paren) 
else 
SYNTAX ERROR("Generic actual part"); 
end if; - -- if generic association statement 
else 
return(FALSE); 
end if; -- if bypass(token left paren) 


end GENERIC_ACTUAL PART; 


-- GENERIC ASSOCIATION --> [GENERIC FORMAL PARAMETER ?| EXPRESSION 
function GENERIC ASSOCIATION return boolean is 
begin 
if (GENERIC FORMAL PARAMETER) then 
null; 
end if; -- if generic formal parameter statement 
if (EXPRESSION) then ~  s= check for generic actual parameter 
return (TRUE); 


else 
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return (FALSE); 
end if; -- if expression 


end GENERIC ASSOCIATION; 


-- GENERIC FORMAL PARAMETER --> identifier => 

ce 7 --> string literal => 
function GENERIC FORMAL PARAMETER return boolean is 
begin 

LOOK AHEAD TOKEN := TOKEN RECORD BUFFER(TOKEN ARRAY INDEX + 1); 

if (ADJUST _LEXEME(LOOK _ AHEAD TOKEN.LEXEME, 

LOOK AHEAD TOKEN.LEXEME SIZE - 1) = "=>") then 
if (BYPASS(TOKEN IDENTIFIER)) then 
if (BYPASS(TOKEN ARROW)) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic formal parameter"); 
end if; -- if bypass(token arrow) 


elsif (BYPASS(TOKEN STRING LITERAL)) then 
if (BYPASS(TOKEN ARROW)) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic formal parameter"); 
end if; a -- if bypass(token arrow) 
else 
SYNTAX ERROR("Generic formal parameter"); 
end if; -- if bypass(token identifier) 
else 
return (FALSE); 
end if; -- if adjust lexeme(lookahead_ token) 


end GENERIC FORMAL PARAMETER; 


-- GENERIC TYPE DEFINITION --> ( <>} 

-- --> fTrange <> 

o --> digits <> 

-- --> delta <> 

-- --> array ARRAY TYPE DEFINITION 

= --> access SUBTYPE INDICATION 
function GENERIC_TYPE DEFINITION return boolean is 
begin 

if (BYPASS(TOKEN LEFT PAREN)) then 

if (BYPASS(TOKEN BRACKETS)) then 
if (BYPASS(TOKEN RIGHT PAREN)) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic type definition"); 
end if; -- if bypass(token right paren) 
else 


SYNTAX ERROR("Generic type definition"); 
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end if; -- if bypass(token brackets) 
elsif (BYPASS(TOKEN RANGE)) or else (BYPASS(TOKEN DIGITS)) 
or else (BYPASS(TOKEN _DELTA)) then 
if (BYPASS(TOKEN BRACKETS)) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic type definition"); 
end if; -- if bypass(token_ brackets) 


elsif (BYPASS(TOKEN ARRAY)) then 
if (ARRAY TYPE DEFINITION) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic type definition"); 
end if; -- if array type definition 


elsif (BYPASS(TOKEN ACCESS)) then 
if (SUBTYPE INDICATION) then 
return (TRUE); 


else 
SYNTAX ERROR("Generic type definition"); 
end if; -- if subtype indication 
else 
return (FALSE); 
end if; -- if bypass(token left paren) 


end GENERIC TYPE DEFINITION; 
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-- PRIVATE TYPE DECLARATION --> [limited ?] private 
function PRIVATE aon, PE DECLARATION return boolean is 
begin 

if (BYPASS(TOKEN LIMITED)) then 

null: 

end if; 

if (BYPASS(TOKEN PRIVATE)) then 

return (TRUE); 

else 

return (FALSE); 

end if; 

eng PRIVATE TYPE DECLARATION; 
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-- SUBTYPE DECLARATION --> identifier is SUBTYPE INDICATION ; 
function SUBTYPE _DECLARATION return boolean is 
begin 

if (BYPASS(TOKEN IDENTIFIER)) then 

if (BYPASS(TOKEN IS)) then 
if (SUBTYPE INDICATION) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 


SYNTAX ERROR("Subtype declaration"); 
141 


end if; -- if bypass(token semicolon) 


else 
SYNTAX ERROR("Subtype declaration"); 
end if; 7 -- if subtype indication statement 
else 
SYNTAX ERROR("Subtype declaration"); 
end if; 7 -- if bypass(token is) 
else 
return (FALSE); 
end if; -- if bypass(token identifier) 


end SUBTYPE DECLARATION; 


-- TYPE DECLARATION --> identifier [DISCRIMINANT PART ?| 
fe - is SUBTYPE _ INDICATION; 
function TYPE DECLARATION return boolean is 
begin 
if (BYPASS(TOKEN IDENTIFIER)) then 
if (DISCRIMINANT PART) then 


null; 
end if; -- if discriminant part statement 
if (BYPASS(TOKEN IS)) then -- declaration is full type if ‘1s’ 
if (PRIVATE TYPE DECLARATION) then 
null; 
elsif (TYPE DEFINITION) then  -- present, otherwise incomplete type 
null; 
else 
SYNTAX ERROR("Type declaration"); 
end if; -- if type definition statement 
end if: -- if bypass(token is) 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Type declaration"); 
end if; -- if bypass(token semicolon) 
else 7 
return (FALSE); 
end if; -- if bypass(token identifier) 


end TYPE DECLARATION; 


-- DISCRIMINANT PART --> (DISCRIMINANT SPECIFICATION 
-- [; DISCRIMINANT SPECIFICATION]* ) 
function DISCRIMINANT PART return boolean is 
begin 
if (BYPASS(TOKEN LEFT PAREN)) then 
if (DISCRIMINANT SPECIFICATION) then 
while (BYPASS(TOKEN SEMICOLON)) loop 
if not (DISCRIMINANT SPECIFICATION) then 
SYNTAX ERROR("Discriminant part"); 
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end if; -- if not discriminant specification 
end loop; 7 
if (BYPASS(TOKEN RIGHT PAREN)) then 

return (TRUE); 7 


else 
SYNTAX ERROR("Discriminant part"); 
end if; -- if bypass(token right paren) 
else 
SYNTAX ERROR("Discriminant part"); 
end if; -- if discriminant specification 
else 
return (FALSE); 
end if; -- if bypass(token left paren) 


end DISCRIMINANT PART; 


-- DISCRIMINANT SPECIFICATION --> IDENTIFIER LIST : NAME |:= EXPRESSION ?] 
function DISCRIMINANT _SPECIFICATION return boolean is 
begin 
if (IDENTIFIER LIST) then 
if (BYPASS(TOKEN COLON)) then 
if (NAME) then -- check for type _mark 
if (BYPASS(TOKEN ASSIGNMENT)) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX ERROR("Discriminant specification"); 
end if; -- if expression statement 
end if; -- if bypass(token assignment) 
return (TRUE); 
else 
SYNTAX ERROR("Discriminant specification"); 
end if; cs -- if name statement 
else 
SYNTAX ERROR("Discriminant specification"); 
end if; 7 -- if bypass(token colon) 
else 
return (FALSE); 
end if; -- if identifier list statement 


end DISCRIMINANT SPECIFICATION, 


-- TYPE DEFINITION --> ENUMERATION TYPE DEFINITION 

-- --> INTEGER TYPE _DEFINITION 

-- --> digits FLOATING OR FIXED POINT CONSTRAINT 
-- --> delta FLOATING OR FIXED _POINT CONSTRAINT 
oe --> array ARRAY TYPE DEFINITION 

- --> record RECORD TYPE DEFINITION 

-- --> access SUBTYPE INDICATION 

= --> new SUBTYPE INDICATION 
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function TYPE DEFINITION return boolean is 
begin 
if (ENUMERATION TYPE DEFINITION) then 
return (TRUE); 
elsif (INTEGER TYPE DEFINITION) then 
return (TRUE); 
elsif (BYPASS(TOKEN DIGITS)) or else (BYPASS(TOKEN DELTA)) then 
if (FLOATING OR FIXED POINT CONSTRAINT) then 
return (TRUE); 
else 
SYNTAX ERROR("Type definition"); 
end if; - -- floating or fixed point constraint 
elsif (BYPASS(TOKEN ARRAY)) then 
if (ARRAY TYPE DEFINITION) then 
return (TRUE); 
else 
SYNTAX ERROR("Type definition"); 
end if; -- if array type definition 
elsif (BYPASS(TOKEN RECORD STRUCTURE)) then 
if (RECORD TYPE DEFINITION) then 
return (TRUE); 
else 
SYNTAX ERROR("Type definition"); 
end if; -- if record type definition 
elsif (BYPASS(TOKEN ACCESS)) or else (BYPASS(TOKEN NEW)) then 
if (SUBTYPE INDICATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Type definition"); 
end if; -- if subtype indication 
else 7 
return (FALSE); 
end if; 
end TYPE DEFINITION; 


-- RECORD TYPE DEFINITION --> COMPONENT LIST end record 
function RECORD TYPE DEFINITION return boolean is 
begin 
if (COMPONENT LIST) then 
if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN RECORD STRUCTURE)) then 
return (TRUE); 7 


else 
SYNTAX ERROR("Record type definition"); 
end if; -- if bypass(token record-structure) 
else 7 
SYNTAX ERROR("Record type definition"); 
end if; -- if bypass(token end) 
else 


return (FALSE); 
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end if; -- if component list statement 


end RECORD TYPE DEFINITION, 


-- COMPONENT LIST --> [COMPONENT DECLARATION]* [VAARIANT PART ?| 


Se --> null; 
function COMPONENT LIST return boolean is 
begin 
while (COMPONENT DECLARATION) loop 
null; 
end loop; 
if (VARIANT PART) then 
null; 


elsif (BYPASS(TOKEN NULL)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
null: 
end if; 
end if; 
return (TRUE); 
end COMPONENT LIST; 


-- COMPONENT DECLARATION --> IDENTIFIER LIST : SUBTYPE INDICATION 
o =e MPR SSION, 7) 
function COMPONENT DECLARATION return boolean is 
begin 
if (IDENTIFIER LIST) then 
if (BYPASS(TOKEN COLON)) then 
if (SUBTYPE INDICATION) then 
if (BYPASS(TOKEN ASSIGNMENT)) then 
if (EXPRESSION) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Component declaration"); 
end if; 7 -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Component declaration"); 
end if; - -- if expression statement 
end if; -- if bypass(token assignment) 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Component declaration"); 
end if; 7 -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Component declaration"); 
end if; 7 -- if subtype indication statement 
else 


SYNTAX ERROR("Component declaration"); 
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end if; -- if bypass(token colon) 
else 
return (FALSE); 
end if: -- if identifier list statement 
end COMPONENT DECLARATION; 


-- VARIANT PART --> case identifier is |VARIANT|+ end case ; 
function VARIANT PART return boolean is 
begin 
if (BYPASS(TOKEN CASE}) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
if (BYPASS(TOKEN IS)) then 
if (VARIANT) then 
while (VARIANT) loop 
null; 
end loop; 
if (BYPASS(TOKEN END)) then 
if (BYPASS(TOKEN CASE)) then 
if (BYPASS(TOKEN SEMICOLON)}) then 
return (TRUE); 


else 
SYNTAX ERROR("Variant part"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Variant part"); 
end if; -- if bypass(token case) 
else 7 
SYNTAX ERROR("Variant part"); 
end if; -- if bypass(token end) 
else 7 
SYNTAX ERROR("Variant part"); 
end if; -- if variant statement 
else 
SYNTAX ERROR("Variant part"); 
end if; -- if bypass(token is) 
else - 
SYNTAX ERROR("Variant part"); 
end if; -- if bypass(token identifier) 
else 7 
return (FALSE); 
end if; -- if bypass(token case) 


end VARIANT PART; 
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-- VARIANT --> when CHOICE || CHOICE]* => COMPONENT LIST 
function VARIANT return boolean is 
begin 
if (BYPASS(TOKEN WHEN)) then 
if (CHOICE) then 
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while (BYPASS(TOKEN BAR)) loop 
if not (CHOICE) then | 
SYNTAX ERROR("Variant"); 
end if; 7 
end loop; 
if (BYPASS(TOKEN ARROW)) then 
if (COMPONENT LIST) then 
return (TRUE); 
else 
SYNTAX ERROR("Variant"); 
end if; -- if component list statement 
else 
SYNTAX ERROR("Variant"); 
end if; 7 
else 
SYNTAX ERROR("Variant"); 
end if; 
else 
return (FALSE); 
end if; -- if bypass(token when) 
end VARIANT; 7 


- if not choice statement 


if bypass(token arrow) 


if choice statement 
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-- WITH OR USE CLAUSE --> identifier |, identifier * ; 
function WITH OR USE CLAUSE return boolean is 
begin 

if (BYPASS(TOKEN IDENTIFIER)) then 

while (BYPASS(TOKEN COMMA)) loop 
if not (BYPASS(TOKEN IDENTIFIER)) then 
SYNTAX ERROR("With or use clause"); 
end if; 
end loop; 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("With or use clause"); 
end if; 7 -- if bypass(token semicolon) 
else 
return (FALSE); 
end if; -- if bypass(token identifier) 


end WITH OR USE CLAUSE: 


-- FORMAL PART --> (PARAMETER SPECIFICATION [; PARAMETER SPECIFICATION)* ) 
function FORMAL PART return boolean is 
begin 
if (BYPASS(TOKEN LEFT PAREN)) then 
FORMAL PARAM DECLARE := TRUE; 
if (PARAMETER SPECIFICATION) then 
while (BYPASS(TOKEN SEMICOLON)) loop 
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if not (PARAMETER SPECIFICATION) then 
SYNTAX ERROR("Formal part"); 

end if; . -- if not parameter specification statement 
end loop; 
if (BYPASS(TOKEN RIGHT PAREN)) then 

if PACKAGE BODY DECLARE then 

WRITE HENRY DATA(BLANK, DUMMY LEXEME, END PARAM DECLARE, 

NONE, NEXT SHEN) 

CREATE NODE(NEXT HEN, LAST RECORD); 

end if; 

FORMAL PARAM DECLARE := FALSE; 

return (TRUE); 


else 
SYNTAX ERROR("Formal part"); 
end if; 7 -- if bypass(token right paren) statement 
else 
SYNTAX ERROR("Formal part"); 
end if; -- if parameter specification statement 
else 
return (FALSE); 
end if: -- if bypass(token left paren) statement 


end FORMAL PART; 


-- IDENTIFIER DECLARATION --> IDENTIFIER LIST : IDENTIFIER DECLARATION TA 
function IDENTIFIER DECLARATION return boolean is i 
begin 
put(RESULT FILE, "IN IDENTIFIER DECLARATION"), NEW LINE(RESULT FILE); 

HENRY WRITE ENABLE := TRUE; 

IDENT DECLARE := TRUE; 

if (IDENTIFIER LIST) then 

if (BYPASS(TOKEN COLON)) then 
if (IDENTIFIER DECLARATION TAIL) then 
HENRY WRITE ENABLE := FALSE; 


return (TRUE); 


else 
SYNTAX ERROR ("Identifier declaration"); 
end if; - -- if identifier list statement 
else 
SYNTAX ERROR ("Identifier declaration"); 
end if; . -- if bypass(token colon) 
else 7 
return(FALSE); 
end if: -- if identifier list statement 


end IDENTIFIER DECLARATION, 


-- IDENTIFIER DECLARATION TAIL --> exception EXCEPTION TAIL 
= --> constant CONSTANT TERM 
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ze --> array ARRAY TYPE DEFINITION 
== |:= EXPRESSION ?| ; 
=s --> NAME IDENTIFIER TAIL 
function IDENTIFIER DECLARATION TAIL return boolean is 
begin 
put(RESULT FILE, "IN IDENTIFIER DECLARATION TAIL"); NEW LINE(RESULT FILE); 
if (BYPASS(TOKEN EXCEPTION)) then 
if (EXCEPTION TAIL) then 
return (TRUE); 


else 
SYNTAX ERROR("Identifier declaration tail"); 
end if; -- if exception tail statement 


elsif (BYPASS(TOKEN CONSTANT)) then 
if (CONSTANT TERM) then 
return (TRUE); 


else 
SYNTAX ERROR ("Identifier declaration tail"); 
end if; -- if constant term statement 


elsif (BYPASS(TOKEN ARRAY)) then 
if (ARRAY TYPE DEFINITION) then 
if (BYPASS(TOKEN ASSIGNMENT)) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX ERROR ("Identifier declaration tail"); 
end if; -- if expression statement 
end if; -- if bypass(token assignment) 
else 
SYNTAX ERROR("Identifier declaration tail"); 
end if; -- if array type definition 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Identifier declaration tail"); 
end if; -- if bypass(token semicolon) 


elsif (NAME) then 
if (IDENTIFIER TAIL) then 
return (TRUE); 


else 
SYNTAX ERROR("Identifier declaration tail"); 
endif; -- if identifier tail 
else 
return (FALSE); 
end if; -- if bypass(token exception) 


end IDENTIFIER DECLARATION TAIL; 


see eeeremewmeweem ee ee eeee ee es cee ee ew eee eee eee mee emo ooo e sw eee es See ee ooeese eer errerecsesreeee° 


-- EXCEPTION TAIL --> ; 

-- > renames NAME ; 
function EXCEPTION TAIL return boolean is 
begin 
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if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 
elsif (BYPASS(TOKEN RENAMES)) then 
if (NAME) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Exception tail"); 
end if; 7 -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Exception tail"); 
end if; -- if name statement 
else 
return (FALSE); 
end if; -- if bypass(token semicolon) 


end EXCEPTION TAIL; 


-- EXCEPTION CHOICE --> identifier 
-- --> others 
function EXCEPTION CHOICE return boolean is 
begin 
if (BYPASS(TOKEN IDENTIFIER)) then 
return (TRUE); 
elsif (BYPASS(TOKEN OTHERS)) then 
return (TRUE); 
else 
return (FALSE); 
end if; 
end EXCEPTION CHOICE; 


-- CONSTANT TERM --> array ARRAY TYPE DEFINITION (:= EXPRESSION ?] ; 

2 --> := EXPRESSION ; 7 

= --> NAME IDENTIFIER TAIL 
function CONSTANT TERM return boolean is 
begin 7 

if (BYPASS(TOKEN ARRAY)) then 

if (ARRAY TYPE DEFINITION) then 
if (BYPASS(TOKEN ASSIGNMENT)) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX ERROR("Constant term"); 
end if; -- if expression statement 
end if; -- if bypass(token assignment) 
else 7 
SYNTAX ERROR("Constant term"); 
end if; -- if array type definition 


if (BYPASS(TOKEN SEMICOLON)) then 
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return (TRUE); 
else 
SYNTAX ERROR("Constant term"); 
end if; -- if bypass(token_ semicolon) 
elsif (BYPASS(TOKEN ASSIGNMENT)) then 
if (EXPRESSION) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 
else 
SYNTAX ERROR("Constant term"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Constant term"); 
end if; -- if expression statement 
elsif (NAME) then 
if (IDENTIFIER TAIL) then 
return (TRUE); 
else 
SYNTAX ERROR("Constant term"); 
end if; -- 1f identifier tail statement 
else 7 
return (FALSE); 
end if; -- if bypass(token array) 
end CONSTANT TERM; 


-- IDENTIFIER TAIL --> [CONSTRAINT ?] |:= EXPRESSION ?] ; 
ce --> [renames NAME ?| ; 
function IDENTIFIER TAIL return boolean is 
begin 
put(RESULT FILE, "IN IDENTIFIER TAIL"); NEW LINE(RESULT FILE); 
if (CONSTRAINT) then 
null; 
end if; -- if constraint statement 
if (BYPASS(TOKEN RENAMES)) then 
if (NAME) then 


null; 
else 
SYNTAX ERROR("Identifier tail"); 
end if; 7 -- if name statement 
end if; -- if bypass(token renames) 


if (BYPASS(TOKEN ASSIGNMENT)) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX ERROR("Identifier tail"); 
end if; -- if expression statement 
end if; -- if bypass(token assignment) 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 


151 


return (FALSE); | 
end if; -- if bypass(token semicolon) | 


end IDENTIFIER TAIL; | 
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-- PARAMETER SPECIFICATION --> IDENTIFIER LIST : MODE NAME (:= EXPRESSION 9 
function PARAMETER SPECIFICATION return boolean is 
begin 
put(RESULT FILE, "IN PARAMETER SPECIFICATION"); NEW LINE(RESULT FILE); 

HENRY WRITE ENABLE := TRUE; --to capture first parameter - 

if (IDENTIFIER LIST) then 

if (BYPASS(TOKEN COLON)) then 
if (MODE) then 
if (NAME) then -- check for type_mark 
if (BYPASS(TOKEN ASSIGNMENT)) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX ERROR("Parameter specification"); 
end if; -- if expression statement 
end if; -- if bypass(token assignment) 
return (TRUE); 
else 
SYNTAX ERROR("Parameter specification"); 
end if; 7 -- if name statement 
else 
SYNTAX ERROR("Parameter specification"); 
end if; -- if mode statement 
else 
SYNTAX ERROR("Parameter specification"); 
end if; -- if bypass(token colon) 
else 
return (FALSE); 
end if; -- if identifier list statement 


end PARAMETER SPECIFICATION; 
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-- IDENTIFIER LIST --> identifier |, identifier] * 
function IDENTIFIER LIST return boolean is 
begin 7 
put(RESULT FILE, "IN IDENTIFIER LIST"); NEW LINE(RESULT FILE); 
if (BYPASS(TOKEN IDENTIFIER)) then 
if FORMAL PARAM DECLARE AND PACKAGE BODY DECLARE then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PARAM TYPE, NONE, LAST RECORL 
elsif (NOT PACKAGE BODY DECLARE) then 
WRITE HENRY DATA(LOCAL DECLARE, DUMMY LEXEME, IDENT TYPE, 
NONE, LAST RECORD); 
end if; 7 
while (BYPASS(TOKEN COMMA)) loop 
if (IDENT DECLARE) OR (FORMAL PARAM DECLARE AND PACKAGE BODY DECLARE 
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then 
HENRY WRITE ENABLE := TRUE; 
end if; 
if FORMAL PARAM DECLARE AND PACKAGE BODY DECLARE then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PARAM TYPE, 
NONE PNET HEN); 
elsif (NOT FORMAL PARAM DECLARE) then 
WRITE HENRY DATA(LOCAL DECLARE, DUMMY LEXEME, IDENT TYPE, 
NONE, NEXT HEN); 7 7 
end if; 7 
if not (BYPASS(TOKEN IDENTIFIER)) then 
SYNTAX ERROR("Identifier list"); 
end if; -- if not bypass(token identifer) statement 
end loop; 7 
return (TRUE); 
else 
return (FALSE); 
end if; -- if bypass(token identifier) statement 
end IDENTIFIER LIST; 


-- MODE --> Jin ?| 
-- --> In out 
-- --> out 
function MODE return boolean is 
begin 
put(RESULT FILE, "INPARAMETER MODE"); NEW LINE(RESULT FILE); 
if (BYPASS(TOKEN IN)) then 
if PACKAGE BODY DECLARE THEN 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PARAM TYPE, IN TYPE, LAST RECORD) 
end if; 7 
if (BYPASS(TOKEN OUT)) then 
if PACKAGE BODY DECLARE then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PARAM TYPE, 
IN OUT TYPE, LAST RECORD); 
end if; 
end if; 
elsif (BYPASS(TOKEN OUT)) then 
if PACKAGE BODY DECLARE then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PARAM TYPE, OUT TYPE, LAST RECORI 
end if; 
end if; 
if (LAST RECORD.TYPE DEFINE = PARAM TYPE) 
AND (LAST RECORD.PARAM TYPE = NONE) THEN 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PARAM TYPE, IN TYPE, LAST RECORD) 
end if; 
return (TRUE); 
end MODE; 
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-- DESIGNATOR --> identifier 
-- --> string literal 
function DESIGNATOR return boolean is 
begin 
if (BYPASS(TOKEN IDENTIFIER)) then 
return (TRUE); 
elsif (BYPASS(TOKEN STRING LITERAL)) then 
return (TRUE); 
else 
return (FALSE); 
end if; 
end DESIGNATOR; 


-- SIMPLE STATEMENT --> null ; 

-- --> ASSIGNMENT OR PROCEDURE CALL 

me --> exit EXIT STATEMENT 

= --> return RETURN STATEMENT 

= --> goto GOTO STATEMENT 

oe --> delay DELAY STATEMENT 

= --> abort ABORT STATEMENT 

mn --> raise RAISE STATEMENT 
function SIMPLE STATEMENT return boolean is 
begin 

if (BYPASS(TOKEN NULL)) then 

if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Simple statement"); 
end if; 
elsif (ASSIGNMENT OR PROCEDURE CALL) then -- includes a check for a 
return (TRUE); -- code statement and an 


- entry call statement. 
elsif (BYPASS(TOKEN EXIT)) then 
if (EXIT STATEMENT) then 
return (TRUE); 
else 
SYNTAX ERROR("Simple statement"); 
end if; 7 
elsif (BYPASS(TOKEN RETURN)) then 
if (RETURN STATEMENT) then 
return (TRUE); 
else 
SYNTAX ERROR("Simple statement"); 
end if; 
elsif (BYPASS(TOKEN GOTO)) then 
if (GOTO STATEMENT) then 
return (TRUE); 
else 
SYNTAX ERROR("Simple statement"); 
endif; 
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elsif (BYPASS(TOKEN DELAY)) then 
if (DELAY STATEMENT) then 
return (TRUE); 
else 
SYNTAX ERROR("Simple statement"); 
end if; 
elsif (BYPASS(TOKEN ABORT)) then 
if (ABORT STATEMENT) then 
return (TRUE); 
else 
SYNTAX ERROR("Simple statement"); 
end if; 
elsif (BYPASS(TOKEN RAISE)) then 
if (RAISE STATEMENT) then 
return (TRUE); 
else 
SYNTAX ERROR("Simple statement"); 
end if; 
else 
return (FALSE); 
end if; 
end SIMPLE STATEMENT; 


-- ASSIGNMENT OR PROCEDURE CALL --> NAME := EXPRESSION ,; 
-- --> NAME ; 
function ASSIGNMENT OR PROCEDURE CALL return boolean is 


ASSIGN POINTER, FUNCALL POINTER : POINTER; 


begin 
put(result file, "in assign or procedure call"); new line(result file); 
HENRY WRITE ENABLE := TRUE; 
ASSIGN POINTER := NEXT HEN; 
if (NAME) then 
if (BYPASS(TOKEN ASSIGNMENT)) then 
ASSIGN STATEMENT := TRUE; 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, ASSIGN TYPE, 
NONE, NEXT HEN); 
CREATE NODE(NEXT HEN, LAST RECORD); 
if NAME TAIL SET then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PROCALL OR DS, 
NONE, ASSIGN POINTER); 
end if; 
FUNCALL POINTER := NEXT HEN; 
HENRY WRITE ENABLE := TRUE; 
if (EXPRESSION) then 
if (BYPASS(TOKEN SEMICOLON)) then 
NAME TAIL SET := FALSE; 
ASSIGN STATEMENT := FALSE; 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END ASSIGN TYPE, 
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NONE, NEXT HEN): 
CREATE NODE(NEXT_HEN, LAST RECORD); 
HENRY WRITE ENABLE := FALSE; 


return (TRUE); -- parsed an assignment statement 
else 
SYNTAX ERROR("Assignment or procedure call"); 
end if; 7 -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Assignment or procedure call"); 
end if;, 7 -- if expression statement 


elsif (BYPASS(TOKEN SEMICOLON)) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PROCALL OR DS, 
NONE, ASSIGN POINTER); 
CREATE NODE(NEXT HEN, LAST RECORD); 


return (TRUE): -- parsed a procedure call statement 
else 
SYNTAX ERROR("Assignment or procedure call"); 
end if; -- if bypass(token assignment) 
else 
return (FALSE); 
end if; -- if name statement 


end ASSIGNMENT OR PROCEDURE CALL: 
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-- LABEL --> << identifier >> 
function LABEL return boolean is 
begin 
if (BYPASS(TOKEN LEFT BRACKET)) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
if (BYPASS(TOKEN RIGHT BRACKET)) then 
return (TRUE); 
else 
SYNTAX ERROR("Label"); 
end if; -- if bypass(token right bracket) 
else - . 
SYNTAX ERROR("Label"); 
end if; -- if bypasss(token identifier) 
else 
return (FALSE); 
end if; -- if bypass(token left bracket) 
end LABEL; a 
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-- ENTRY DECLARATION --> entry identifier (DISCRETE RANGE) ?, 
-- 7 (FORMAL PART ?| ; 
function ENTRY DECLARATION return boolean is 
begin 7 
if (BYPASS(TOKEN ENTRY)) then 
if (BYPASS(TOKEN IDENTIFIER)) then 
if (BYPASS(TOKEN LEFT PAREN)) then 
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if (DISCRETE RANGE) then 
if (BYPASS(TOKEN RIGHT PAREN)) then 


null; 
else 
SYNTAX ERROR("Entry declaration"); 
end if; -- if bypass(token right paren) 
else 7 7 
SYNTAX ERROR("Entry declaration"); 
end if; -- if discrete range statement 
end if; -- if bypass(token left paren) 
if (FORMAL PART) then SS 
null; 
end if; -- if formal part statement 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Entry declaration"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Entry declaration"); 
end if; -- if bypass(token identifier) 
else 
return (FALSE); 
end if; -- if bypass(token entry) 


end ENTRY DECLARATION; 


-- REPRESENTATION CLAUSE --> for NAME use record RECORD REPRESENTATION CLAUSE 

= --> for NAME use [at ?| SIMPLE EXPRESSION; 7 
function REPRESENTATION CLAUSE return boolean is 
begin 

if (BYPASS(TOKEN FOR)) then 

if (NAME) then 
if (BYPASS(TOKEN USE)) then 
if (BYPASS(TOKEN RECORD STRUCTURE)) then 
if (RECORD REPRESENTATION CLAUSE) then 
return (TRUE); 


else 
SYNTAX ERROR("Representation clause"); 
end if; -- if record representation clause 


elsif (BYPASS(TOKEN AT)) then 
if (SIMPLE EXPRESSION) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Representation clause"); 
end if; 7 -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Representation clause"); 
end if; 7 -- if simple expression statement 


elsif (SIMPLE EXPRESSION) then 
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if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Representation clause"); 
end if; 7 -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Representation clause"); 
end if; 7 -- if bypass(token record) 
else 
SYNTAX ERROR("Representation clause"); 
end if; -- if bypass(token_ use) 
else 
SYNTAX ERROR("Representation clause"); 
end if; -- if name statement 
else 
return (FALSE); 
end if; -- if bypass(token for) 


end REPRESENTATION CLAUSE; 


-- RECORD REPRESENTATION CLAUSE --> ‘at mod SIMPLE EXPRESSION ?. 
= NAME at SIMPLE EXPRESSION range RANGES * 
-- end record ; 
function RECORD REPRESENTATION CLAUSE return boolean is 
begin 
if (BYPASS(TOKEN AT)) then 
if (BYPASS(TOKEN MOD)) then 
if (SIMPLE EXPRESSION) then 


null; 
else 
SYNTAX ERROR("Record representation clause"); 
end if; -- if simple expression 
else 
SYNTAX ERROR("Record representation clause"); 
end if; -- if bypass(token mod) 
end if; -- if bypass(token at) 


while (NAME) loop 
if (BYPASS(TOKEN AT)) then 
if (SIMPLE EXPRESSION) then 
if (BYPASS(TOKEN RANGE)) then 
if (RANGES) then 


null; 
else 
SYNTAX ERROR("Record representation clause"); 
end if; -- if ranges statement 
else 
SYNTAX ERROR("Record representation clause"); 
end if; -- if bypass(token range) 
else 
SYNTAX ERROR("Record representation clause"); 
end if; -- if simple expression 
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else 
SYNTAX ERROR("Record representation clause"); 
end if: -- if bypass(token at) 


end loop; 


if (BYPASS(TOKEN END)) then 


if (BYPASS(TOKEN RECORD STRUCTURE)) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Record representation clause"); 
end if; -- if bypass(token semicolon) 
else 
SYNTAX ERROR("Record representation clause"); 
end if; -- if bypass(token record structure) 


else 


return (FALSE); 


end if; -- if bypass(token end) 


end RECORD REPRESENTATION CLAUSE; 


end PARSER 2; 
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TITLE: AN ADA SOFTWARE METRIC 


MODULE NAME: PACKAGE PARSER 3 
DATE CREATED: 22 JUL 86 
LAST MODIFIED: 30 MAY 87 


AUTHORS: LCDR JEFFREY L. NIEDER 
LT KARL S. FAIRBANKS, JR. 
LCDR PAUL M. HERZIG 
DESCRIPTION: This package contains thirty-five functions 
that make up the baseline productions for our top-down, 
recursive descent parser. Each function is preceded 
by the grammar productions they are implementing. 
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with PARSER 4, HENRY GLOBAL, HENRY, BYPASS FUNCTION, HALSTEAD METRIC, 


GLOBAL PARSER, GLOBAL, TEXT IO; 


use PARSER 4, HENRY GLOBAL, HENRY, BYPASS FUNCTION, HALSTEAD METRIC, 


GLOBAL PARSER, GLOBAL, TEXT 10; 


package PARSER 3 is 


function SUBTYPE INDICATION return boolean; 

function ARRAY TYPE DEFINITION return boolean; 

function CHOICE return boolean: 

function ITERATION SCHEME return boolean; 

function LOOP PARAMETER SPECIFICATION return boolean; 
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function EXPRESSION return boolean; 
function RELATION return boolean; 
function RELATION TAIL return boolean; 
function SIMPLE EXPRESSION return boolean; 
function SIMPLE _EXPRESSION _TAIL return Sogleniy 
function TERM return boolean; 
function FACTOR return boolean; 
function PRIMARY return boolean; 
function CONSTRAINT return boolean; 
function FLOATING OR FIXED POINT CONSTRAINT return boolean; 
function INDEX _CONSTRAINT return boolean; 
function RANGES return boolean; 
function AGGREGATE return boolean; 
function COMPONENT ASSOCIATION return boolean; 
function ALLOCATOR return boolean; 
function NAME return boolean; 
function NAME TAIL return boolean; 
function LEFT PAREN NAME TAIL return boolean; 
function ATTRIBUTE DESIGNATOR return boolean; 
function INTEGER TYPE DEFINITION return boolean; 
function DISCRETE RANGE return boolean: 
function EXIT STATEMENT return boolean; 
function RETURN STATEMENT return boolean; 
function GOTO STATEMENT return boolean; 
function DELAY STATEMENT return boolean; 
function ABORT STATEMENT return boolean; 
function RAISE STATEMENT return boolean; 

end PARSER 3; 


package body PARSER 3 is 


-- SUBTYPE INDICATION --> NAME |CONSTRAINT ? 
function SUBTYPE INDICATION return boolean is 
begin 
if (NAME) then -- check for type _mark 
if (CONSTRAINT) then 
null; 
end if: 
return (TRUE); 
else 
return (FALSE); 
end if; 
end SUBTYPE INDICATION, 


-- ARRAY TYPE DEFINITION --> (INDEX CONSTRAINT of SUBTYPE INDICATION 
-- this function parses both constrained and unconstrained arrays 


function ARRAY TYPE DEFINITION return boolean is 
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begin 
if (BYPASS(TOKEN LEFT PAREN)) then 
if (INDEX CONSTRAINT) then 
if (BYPASS(TOKEN OF)) then 
if (SUBTYPE INDICATION) then 
return (TRUE); 


else 
SYNTAX ERROR("Array definition"); 
end if; -- if subtype indication 
else : 
SYNTAX ERROR("Array definition"); 
end if; -- if bypass(token of) 
else = 
SYNTAX ERROR("Array definition"); 
end if; -- if index constraint statement 
else - 
return (FALSE); 
end if; -- if bypass(token left paren) 


pudeakhAY TYPE DEFINITION; 
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-- CHOICE --> EXPRESSION |..SIMPLE EXPRESSION ? 
-- --> EXPRESSION [CONSTRAINT ?| 
-- --> others 
function CHOICE return boolean is 
begin 
if (EXPRESSION) then 
if (BYPASS(TOKEN RANGE DOTS)) then -- check for discrete range 
if (SIMPLE EXPRESSION) then 7 
null; 
else 
SYNTAX ERROR("Choice"); 
end if; -- if simple expression statement 
elsif (CONSTRAINT) then - 
null; 
end if; -- if bypass token range dots 
return (TRUE); 
elsif (BYPASS(TOKEN OTHERS)}) then 
return (TRUE); 
else 
return (FALSE); 
end if; 
end CHOICE; 
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-- ITERATION SCHEME --> while EXPRESSION 

=m > for LOOP PARAMETER SPECIFICATION 
function ITERATION SCHEME return boolean is 
begin 

if (BYPASS(TOKEN WHILE)) then 
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NESTING METRIC(WHILE CONSTRUCT); 
if (EXPRESSION) then 
return (TRUE); 
else 
SYNTAX ERROR("Iteration scheme"); 
end if: 
elsif (BYPASS(TOKEN FOR)) then 
NESTING METRIC(FOR CONSTRUCT); 
if (LOOP PARAMETER SPECIFICATION) then 
return (TRUE); 
else 
SYNTAX ERROR("Iteration scheme"); 
end if; 
else 
return (FALSE); 
end if; 
end ITERATION SCHEME; 


-- LOOP_ PARAMETER SPECIFICATION --> identifier in reverse ?; DISCRETE RANGE 
function LOOP PARAMETER SPECIFICATION return boolean is i 
begin 
if (BYPASS(TOKEN IDENTIFIER)) then 
if (BYPASS(TOKEN _IN)) then 
if (BYPASS(TOKEN REVERSE)) then 
null; 
end if; -- if bypass(token_ reverse) 
if (DISCRETE RANGE) then 
return (TRUE); 


else 
SYNTAX ERROR("Loop parameter specification"); 
end if; -- if discrete range statement 
else 
SYNTAX ERROR("Loop parameter specification"); 
end if; -- if bypass(token in) 
else : 
return (FALSE); 
end if: -- if bypass(token identifier) 


end LOOP PARAMETER SPECIFICATION; 


-- EXPRESSION --> RELATION [RELATION TAIL ?| 
function EXPRESSION return boolean is 
begin 
if (RELATION) then 
if (RELATION TAIL) then 
null; 
end if: -- if relation tail statement 
return (TRUE); 


else 
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return (FALSE); 
end if; -- if relation statement 


end EXPRESSION; 
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-- RELATION --> SIMPLE EXPRESSION |SIMPLE EXPRESSION TAIL ?| 
function RELATION return boolean is 
begin 
if (SIMPLE EXPRESSION) then 
if (SIMPLE EXPRESSION TAIL) then 
null; 
end if; -- if simple expression tail statement 
return (TRUE); 7 7 
else 
return (FALSE); 
end if; -- if simple expression statement 


end RELATION; 


-- RELATION TAIL --> [and |then ?} RELATION]* 
- --> [or ‘else ?} RELATION]* 
-- --> |xor RELATION|* 
function RELATION TAIL return boolean is 
begin 
while (BYPASS(TOKEN AND)) loop 
if (BYPASS(TOKEN THEN)) then 
null; 
end if; -- if bypass(token then) 
if not (RELATION) then | 
SYNTAX ERROR("Relation tail"); 
end if; -- if not relation statement 
end loop; 
while (BYPASS(TOKEN OR)) loop 
if (BYPASS(TOKEN ELSE)) then 
null; 
end if; -- if bypass(token else) 
if not (RELATION) then 
SYNTAX ERROR("Relation tail"); 
end if; . -- if not relation statement 
end loop; 
while (BYPASS(TOKEN XOR)) loop 
if not (RELATION) then 
SYNTAX ERROR("Relation tail"); 
end if; 7 -- if not relation statement 
end loop; 
return (TRUE); 
end RELATION TAIL; 
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-- SIMPLE EXPRESSION --> [+ ?}] TERM [BINARY ADDING OPERATOR TERM|* 

mn --> |- ?| TERM |BINARY ADDING OPERATOR TERM|]* 
function SIMPLE EXPRESSION return boolean is 
begin 

if (BYPASS(TOKEN PLUS) or BYPASS(TOKEN MINUS)) then 

if (TERM) then 
while (BINARY ADDING OPERATOR) loop 
if not (TERM) then 
SYNTAX ERROR("Simple expression"); 


end if; -- if not term statement 
end loop; 
return (TRUE); 
else 
SYNTAX ERROR("Simple expression"); 
end if; 7 -- if term statement 


elsif (TERM) then 
while (BINARY ADDING OPERATOR) loop 
if not (TERM) then 
SYNTAX ERROR("Simple expression"); 
end if; -- if not term statement 
end loop; 
return (TRUE); 
else 
return (FALSE); 
end if; -- if bypass(token plus) et al statement 
end SIMPLE EXPRESSION; 
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-- SIMPLE EXPRESSION TAIL --> RELATIONAL OPERATOR SIMPLE EXPRESSION 
& --> [not ?} in RANGES 
-- --> [not ?} in NAME 
function SIMPLE EXPRESSION TAIL return boolean is 
begin 
if (RELATIONAL OPERATOR) then 
if (SIMPLE EXPRESSION) then 
return (TRUE); 


else 
SYNTAX ERROR("Simple expression tail"); 
end if; -- if simple expression statement 


elsif (BYPASS(TOKEN NOT)) then 
if (BYPASS(TOKEN IN)) then 


if (RANGES) then 
return (TRUE); 


elsif (NAME) then -- check for type mark 
return (TRUE); 
else 
SYNTAX ERROR("Simple expression tail"); 
end if; -- if ranges statement 
else 
SYNTAX ERROR("Simple expression tail"); 
end if; -- if bypass(token in) statement 
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elsif (BYPASS(TOKEN IN)) then 
if (RANGES) then 
return (TRUE); 


elsif (NAME) then -- check for type mark 
return (TRUE); 7 
else 
SYNTAX ERROR("Simple expression tail"); 
end if; -- if ranges statement 
else 
return (FALSE); 
end if; -- if relational operator statement 


end SIMPLE EXPRESSION TAIL; 


-- TERM --> FACTOR MULTIPLYING OPERATOR FACTOR}* 
function TERM return boolean is 
begin 
if (FACTOR) then 
while (MULTIPLYING OPERATOR) loop 
if not (FACTOR) then 
SYNTAX ERROR("Term"); 
end if; -- if not factor statement 
end loop; 
return (TRUE); 
else 
return (FALSE); 
end if; -- if factor statement 


end TERM; 


-- FACTOR --> PRIMARY [** PRIMARY ?| 
ne --> abs PRIMARY 
-- --> not PRIMARY 
function FACTOR return boolean is 
begin 
if (PRIMARY) then 
if (BYPASS(TOKEN EXPONENT)) then 
if (PRIMARY) then 


null; 
else 
SYNTAX ERROR("Factor"); 
end if; -- if primary statement 
end if; -- if bypass(token exponent) statement 


return (TRUE); 
elsif (BYPASS(TOKEN ABSOLUTE)) then 
if (PRIMARY) then 
return (TRUE); 


else 
SYNTAX ERROR("Factor"); 
end if; -- if primary(abs) statement 
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elsif (BYPASS(TOKEN NOT)) then 
if (PRIMARY) then 
return (TRUE); 
else 
SYNTAX ERROR("Factor"); 
end if; 7 -- if primary(not) statement 
else 
return (FALSE); 
end if; -- if primary statement 


end FACTOR; 
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-- PRIMARY --> numeric literal 
-- --> null 
-- --> string literal 
-- --> new ALLOCATOR 
-- --> NAME 
-- --> AGGREGATE 
function PRIMARY return boolean is 
begin 
HENRY WRITE ENABLE := TRUE; 
if (BYPASS(TOKEN NUMERIC LITERAL)) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, IDENT TYPE, NONE, LAST RECORD) 
return (TRUE); 
elsif (BYPASS(TOKEN NULL)) then 
return (TRUE); 
elsif (BYPASS(TOKEN STRING LITERAL)) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, IDENT TYPE, NONE, LAST RECORD} 
return (TRUE); 7 
elsif (BYPASS(TOKEN NEW)) then 
if (ALLOCATOR) then 
return (TRUE); 
else 
SYNTAX ERROR("Primary"); 
end if; -- if allocator statement 
elsif (NAME) then 
return (TRUE); 
elsif (AGGREGATE) then 
return (TRUE); 
else 
return (FALSE); 
end if; -- if bypass(token left paren) 
end PRIMARY; 


-- CONSTRAINT --> range RANGES 

-- --> range <> 

= --> digits FLOATING OR FIXED POINT CONSTRAINT 
-- --> delta FLOATING OR FIXED POINT CONSTRAINT 
= --> (INDEX CONSTRAINT 
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function CONSTRAINT return boolean is 
begin 
if (BYPASS(TOKEN RANGE)) then 
if (RANGES) then 
return (TRUE); 


elsif (BYPASS(TOKEN BRACKETS)) then -- check for <> when parsing 
return (TRUE); -- an unconstrained array 

else 
SYNTAX ERROR("Constraint"); 

end if; -- if ranges statement 


elsif (BYPASS(TOKEN DIGITS)) or else (BYPASS(TOKEN DELTA)) then 
if (FLOATING OR FIXED POINT CONSTRAINT) then 
return (TRUE); 
else 
SYNTAX ERROR("Constraint"); 
end if; 
elsif (BYPASS(TOKEN LEFT PAREN)) then 
if (INDEX CONSTRAINT) then 
return (TRUE); 
else 
SYNTAX ERROR("Constraint"); 
end if; 
else 
return (FALSE); 
end if; 
end CONSTRAINT; 
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-- FLOATING OR FIXED POINT CONSTRAINT --> SIMPLE EXPRESSION range RANGES ?| 
function FLOATING OR FIXED POINT CONSTRAINT return boolean is 
begin 
if (SIMPLE EXPRESSION) then 
if (BYPASS(TOKEN RANGE)) then 


if (RANGES) then 


null; 
else 
SYNTAX ERROR("Floating or fixed point constraint"); 
end if; -- if ranges statement 
end if; -- if bypass(token range) 
return (TRUE); 
else 
return (FALSE); 
end if; -- if simple expression statement 


end FLOATING OR FIXED POINT CONSTRAINT; 


-- INDEX CONSTRAINT --> DISCRETE RANGE |, DISCRETE RANGE|* ) 
function INDEX CONSTRAINT return boolean is 
begin 

if (DISCRETE RANGE) then 
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while (BYPASS(TOKEN COMMA)) loop 
if not (DISCRETE RANGE) then 
SYNTAX ERROR("Index constraint"); 
end if; 7 -- if not discrete range 
end loop; 
if (BYPASS(TOKEN RIGHT PAREN)) then 
return (TRUE); 


else 
SYNTAX ERROR("Index constraint"); 
end if; -- if bypass(token right paren) 
else 
return (FALSE); 
end if; -- if discrete range statement 


end INDEX CONSTRAINT; 


-- RANGES --> SIMPLE EXPRESSION |..SIMPLE EXPRESSION ?| 
function RANGES return boolean is 
begin 
if (SIMPLE EXPRESSION) then 
if (BYPASS(TOKEN RANGE DOTS)) then 
if (SIMPLE EXPRESSION) then 
null; 
else 
SYNTAX ERROR("Ranges"); 
end if; -- if simple expression statement 
end if; -- if bypass(token range dots) 
return (TRUE); 
else 
return (FALSE); 
end if; -- if simple expression statement 


end RANGES; 
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-- AGGREGATE --> (COMPONENT ASSOCIATION |, COMPONENT ASSOCIATION! ) 
function AGGREGATE return boolean is 
begin 
if (BYPASS(TOKEN LEFT PAREN)) then 
if (COMPONENT ASSOCIATION) then 
while (BYPASS(TOKEN COMMA)) loop 
if not (COMPONENT ASSOCIATION) then 
SYNTAX ERROR("Aggregate"); 
end if; -- if not component association 
end loop; 
if (BYPASS(TOKEN RIGHT PAREN)) then 
return (TRUE); 
else 
SYNTAX ERROR("Aggregate"); 
end if; -- if bypass(token right paren) 
else 
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SYNTAX ERROR("Aggregate"); 


end if; -- if component association statement 
else 

return (FALSE); 
end if; -- if bypass(token left paren) 


end AGGREGATE; 


-- COMPONENT ASSOCIATION --> [CHOICE || CHOICE]* => ?] EXPRESSION 
function COMPONENT ASSOCIATION return boolean is 
begin 

if (CHOICE) then 

while (BYPASS(TOKEN BAR)) loop 
if not (CHOICE) then 
SYNTAX ERROR("Component asociation"); 
end if; 
end loop; 
if (BYPASS(TOKEN ARROW)) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX ERROR("Component asociation"); 
end if; -- if expression statement 
end if; -- if bypass(token arrow) 
return (TRUE); 
else 
return (FALSE); 
end if; -- if choice statement 


end COMPONENT ASSOCIATION; 


-- ALLOCATOR --> SUBTYPE INDICATION [AGGREGATE ?) 
function ALLOCATOR return boolean is 
begin 
if (SUBTYPE INDICATION) then 
if (BYPASS(TOKEN APOSTROPHE)) then 
if (AGGREGATE) then 
null; 
else 
SYNTAX ERROR("Allocator"); 
end if; -- if aggregate statement 
end if; -- if bypass(token apostrophe) 
return (TRUE); 
else 
return (FALSE); 
end if; -- if subtype indication statement 


end ALLOCATOR; 
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-- NAME --> identifier [NAME TAIL ? 
= --> character literal [NAME TAIL ?| 
ze --> string literal (NAME TAIL ?] 


function NAME return boolean is 


begin 
put(result file, "in name"); new line(result file); 
if (BYPASS(TOKEN _IDENTIFIER)) then 
NAME POINTER := LAST RECORD; 
if (NAME _TAIL) then 
null; 
end if; 
return (TRUE); 
HENRY WRITE ENABLE := TRUE; 
elsif (BYPASS(TOKEN CHARACTER LITERAL)) then 
if (NAME TAIL) then 
null; 
end if; 
return (TRUE); 
elsif (BYPASS(TOKEN STRING LITERAL)) then 
if (NAME TAIL) then 
null; 
end if; 
return (TRUE); 
else 
return (FALSE); 
end if; 
end NAME; 
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-- NAME TAIL --> (LEFT PAREN NAME TAIL 
-- --> .SELECTOR [NAME | _TAIL|* 
-- --> “AGGREGATE [NAME | TAIL! 
-- --> “ATTRIBUTE DESIGNATOR [NAME TAIL]* 
function NAME TAIL return boolean is 
begin 
put(result file, "in name tail"); new line(result file); 
if (BYPASS(TOKEN LEFT PAREN)) then 
NAME TAIL Sn = = TRUB. 
HENRY WRITE ENABLE := TRUE; 
if ASSIGN STATEMENT then 
WRITE HENRY _DATA(BLANK, DUMMY LEXEME, FUNCALL OR DS, 
NONE, NAME POINTER); 
else WRITE HENRY DATA(BLANK, DUMMY LEXEME, PROCALL OR DS, 
NONE, NAME POINTER); 
end if; 
if (LEFT PAREN NAME TAIL) then 
return (TRUE); 
else 


return (FALSE); 
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end if; -- if left paren name tail 
elsif (BYPASS(TOKEN PERIOD)) then 
if (SELECTOR) then 
while (NAME TAIL) loop 
null; 
end loop; 
return (TRUE); 
else 
SYNTAX ERROR("Name tail"); 
end if; -- if selector statement 
elsif (BYPASS(TOKEN APOSTROPHE)) then 
if (AGGREGATE) then 
while (NAME TAIL) loop 
null; 
end loop; 
return (TRUE); 
elsif (ATTRIBUTE DESIGNATOR) then 
while (NAME TAIL) ioop 
null; 
end loop; 
return (TRUE); 
else 
SYNTAX ERROR("Name tail"); 
end if; -- if aggregate statement 
else 
return (FALSE); 
end if; -- if bypass(token left paren) 
end NAME TAIL; 7 


-- LEFT PAREN NAME TAIL --> [FORMAL PARAMETER ?| EXPRESSION |..EXPRESSION ? 
-- , | [FORMAL _PARAMETER ?] EXPRESSION |. EXPRESSION ‘ aly 
-- ) NAME TAIL}* 

function LEFT PAREN NAME TAIL return boolean is 

begin 


is 





put(result file, "in left paren name tail"); new line(result file); 
if (FORMAL PARAMETER) then -- check for optional formal parameter 
null; -- before the actual parameter 
end if; -- if formal parameter statement 
HENRY WRITE ENABLE := TRUE; | 
if (EXPRESSION) then 
if NAME TAIL SET then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PARAM TYPE, ACTUAL PARAM, 
LAST RECORD); 
end if; 
if (BYPASS(TOKEN RANGE DOTS)) then 
if not (EXPRESSION) then 
SYNTAX ERROR("Left paren name tail"); 
end if; -- if not expression statement 
end if; -- if bypass(token range dots) 
while ({BYPASS(TOKEN COMMA)) loop 


ie 


if (FORMAL PARAMETER) then 


null; 
end if; -- if formal parameter statement 


HENRY WRITE ENABLE := TRUE; 
if not (EXPRESSION) then 
SYNTAX ERROR("Left paren name tail"); 
end if; -- if not expression statement 
if (BYPASS(TOKEN RANGE DOTS)) then 
if not (EXPRESSION) then 
SYNTAX ERROR("Left paren name tail"); 


end if; -- if not expression statement 
end if; -- if bypass(token range dots) 
if NAME TAIL SET then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, PARAM TYPE, ACTUAL PARAM, 
LAST RECORD); 7 Z 
end if; 
end loop; 
if (BYPASS(TOKEN RIGHT PAREN)) then 
WRITE HENRY DATA(BLANK, DUMMY LEXEME, END ACTUAL PARAM, 
ACTUAL PARAM, NEXT HEN); 7 - 
CREATE NODE(NEXT HEN, LAST RECORD); 
NAME TAIL SET := FALSE; 
while (NAME TAIL) loop 
null; 7 
end loop; 
return (TRUE); 
else 
return (FALSE); 
end if; -- if bypass(token right paren) 
elsif (DISCRETE RANGE) then 
if (BYPASS(TOKEN RIGHT PAREN)) then 
while (NAME TAIL) LOOP 
NULL; 
END LOOP; 
RETURN UERUE): 
else 
SYNTAX ERROR("Left paren name tail"); 
end if; 
else 
return (FALSE); 
end if: -- if bypass(token right paren) 
end LEFT PAREN NAME TAIL; 


-- ATTRIBUTE DESIGNATOR --> identifier |(EXPRESSION) ?| 
--> range (EXPRESSION) ?) 
-- --> digits |((EXPRESSION) ?| 
-- --> delta {[(EXPRESSION) ?] 
function ATTRIBUTE DESIGNATOR return boolean is 


begin 
if (BYPASS(TOKEN IDENTIFIER)) or else (BYPASS(TOKEN RANGE)) then 
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if (BYPASS(TOKEN LEFT PAREN)) then 
if (EXPRESSION) then 
if (BYPASS(TOKEN RIGHT PAREN)) then 


null; 
else 
SYNTAX ERROR("Attribute designator"); 
end if; -- if bypass(token right paren) statement 
else 
SYNTAX ERROR("Attribute designator"); 
end if; -- if expression statement 
end if; -- if bypass(token left paren) statement 


return (TRUE); 
elsif (BYPASS(TOKEN DIGITS)) or else (BYPASS(TOKEN DELTA)) then 
if (BYPASS(TOKEN LEFT PAREN)) then 7 
if (EXPRESSION) then 
if (BYPASS(TOKEN RIGHT PAREN)) then 


null; 
else 
SYNTAX ERROR("Attribute designator"); 
end if; -- if bypass(token right paren) statement 
else - - 
SYNTAX ERROR("Attribute designator"); 
end if; -- if expression statement 
end if; -- if bypass(token left paren) statement 
return (TRUE); 
else 
return (FALSE); 
end if; -- if bypass(token identifier) statement 


end ATTRIBUTE DESIGNATOR; 


-- INTEGER TYPE DEFINITION --> range RANGES 
function INTEGER TYPE DEFINITION return boolean is 
begin 

if (BYPASS(TOKEN RANGE)) then 

if (RANGES) then 

return (TRUE); 
else 

SYNTAX ERROR("Integer type definition"); 
end if; 

else 

return (FALSE); 

end if; 

end INTEGER TYPE DEFINITION; 


-- DISCRETE RANGE --> RANGES [CONSTRAINT ?] 
function DISCRETE RANGE return boolean is 
begin 

if (RANGES) then 
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if (CONSTRAINT) then 
null: 
end if; -- if constraint statement 
return (TRUE); 
else 
return (FALSE); 


end if; -- if ranges statement 


end DISCRETE RANGE; 


-- EXIT STATEMENT --> [NAME ?] [when EXPRESSION ?] ; 
function EXIT STATEMENT return boolean is 
begin 
if (NAME) then 
null; 
end if; -- if name statement 
if (BYPASS(TOKEN WHEN)) then 
if (EXPRESSION) then 


null; 
else 
SYNTAX ERROR("Exit statement"); 
end if; -- if expression statement 
end if; -- if bypass(token when) 


if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 

else 
return (FALSE); 


end if; -- if bypass(token semicolon) 


end EXIT STATEMENT; 


-- RETURN STATEMENT --> [EXPRESSION 7, ; 
function RETURN STATEMENT return boolean 1s 
begin 

if (EXPRESSION) then 

null; 

end if; 

if (BYPASS(TOKEN SEMICOLON)) then 

return (TRUE); 

else 

return (FALSE); 

end if; 

end RETURN STATEMENT; 


-- GOTO STATEMENT --> NAME ; 
function GOTO STATEMENT return boolean is 
begin 7 

if (NAME) then 
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if (BYPASS(TOKEN SEMICOLON)}) then 
return (TRUE); 


else 
SYNTAX ERROR("Goto statement"); 
end if; - -- if bypass(token semicolon) 
else 
return (FALSE); 
end if; -- if name statement 


end GOTO STATEMENT; 


-- DELAY STATEMENT --> SIMPLE EXPRESSION ; 
function DELAY STATEMENT return boolean is 
begin 
if (SIMPLE EXPRESSION) then 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Delay statement"); 
end if; -- if bypass(token semicolon) 
else 
return (FALSE); 
end if: -- if simple expression statement 


end DELAY STATEMENT; 
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-- ABORT STATEMENT --> NAME |, NAME}* ; 
function ABORT STATEMENT return boolean is 
begin 

if (NAME) then 

while (BYPASS(TOKEN COMMA)) loop 
if not (NAME) then 
SYNTAX ERROR("Abort statement"); 
end if; -- if not name statement 
end loop; 
if (BYPASS(TOKEN SEMICOLON)) then 
return (TRUE); 


else 
SYNTAX ERROR("Abort statement"); 
end if; -- if bypass(token semicolon) 
else - 
return (FALSE); 
end if; -- if name statement 


end ABORT STATEMENT; 
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-- RAISE STATEMENT --> [NAME ?] ; 
function RAISE STATEMENT return boolean is 
begin 
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if (NAME) then 
null; 

end if; 

if (BYPASS(TOKEN SEMICOLON)}) then 
return (TRUE); 

else 
return (FALSE); 

end if; 

end RAISE STATEMENT; 


end PARSER 3; 
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-- TITLE: AN ADA SOFTWARE METRIC 


-- MODULE NAME: PACKAGE PARSER 4 
-- DATE CREATED: 23 JUL 86 
-- LAST MODIFIED: 30 MAY 87 


-- AUTHORS: LCDR JEFFREY L. NIEDER 

-- LT KARL S. FAIRBANKS, JR. 

-- LCDR PAUL M. HERZIG 

-- DESCRIPTION: This package contains seven functions that 
-- are the lowest level productions for our top-down, 

-- recursive descent parser. Each function is preceded 

-- by the grammar productions they are implementing. 


OK OK KE ROK KKK KOK KK 


with BYPASS FUNCTION, BYPASS SUPPORT FUNCTIONS, GLOBAL PARSER, GLOBAL, TEA 
use BYPASS FUNCTION, BYPASS SUPPORT FUNCTIONS, GLOBAL PARSER, GLOBAL, TEX! 


package PARSER 4 is 
function MULTIPLYING OPERATOR return boolean; 
function BINARY ADDING OPERATOR return boolean; 
function RELATIONAL OPERATOR return boolean; 
function ENUMERATION TYPE DEFINITION return boolean; 
function ENUMERATION LITERAL return boolean; 
function FORMAL PARAMETER return boolean; 
function SELECTOR return boolean; 
end PARSE 4, 


package body PARSER 4 is 
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-- MULTIPLYING OPERATOR --> * 

ee 7 = / 

_ --> mod 

— --> rem 
function MULTIPLYING OPERATOR return boolean is 
begin 


put(RESULT FILE, "In multiplying operator "); new line(RESULT FILE); 


if (BYPASS(TOKEN ASTERISK)) then 
return (TRUE); 

elsif (BYPASS(TOKEN SLASH)) then 
return (TRUE); 

elsif (BYPASS(TOKEN MOD)) then 
return (TRUE); 

elsif (BYPASS(TOKEN REM)) then 
return (TRUE); 

else 
return (FALSE); 

end if; 

end MULTIPLYING OPERATOR; 


-- BINARY ADDING OPERATOR --> + 
= Eke 2 
-- -> & 
function BINARY ADDING OPERATOR return boolean is 
begin 
put(RESULT FILE, "In binary adding operator "); new line(RESULT 
if (BYPASS(TOKEN PLUS)) then : 
return (TRUE); 
elsif (BYPASS(TOKEN MINUS)) then 
return (TRUE); 
elsif (BYPASS(TOKEN AMPERSAND)) then 
return (TRUE); 
else 
return (FALSE); 
end if; 
end BINARY ADDING OPERATOR; 


- RELATIONAL OPERATOR --> 
or 7 Sa i 

2 ger 

oe > = 

= --> > 

= > >= 
function RELATIONAL OPERATOR return boolean is 
begin 


| 


_FILE); 


put(RESULT FILE, "In relational operator "); new line(RESULT FILE); 


if (BYPASS(TOKEN EQUALS)) then 
return (TRUE); 
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elsif (BYPASS(TOKEN NOT EQUALS)) then 
return (TRUE); 

elsif (BYPASS(TOKEN LESS THAN)) then 
return (TRUE); 

elsif (BYPASS(TOKEN LESS THAN EQUALS)) then 
return (TRUE); 

elsif (BYPASS(TOKEN GREATER THAN)) then 
return (TRUE); 

elsif (BYPASS(TOKEN GREATER THAN EQUALS)) then 
return (TRUE); 

else 
return (FALSE); 

end if: 

end RELATIONAL OPERATOR; 


-- ENUMERATION TYPE 2 Ee --> (ENUMERATION LITERAL 
- , ENUMERATION _LITERAL]* ) 
faneaee PINU MIAN TO Ni aha DEFINITION return boolean is 
begin 
put(RESULT FILE, "In enumeration type definition "); new line(RESULT FILE); 
if (BYPASS(TOKEN | LEFT PAREN)) then 
HENRY WRITE ENABLE := = TRUE; 
if (ENUMERATION LITERAL) then 
while (BYPASS(TOKEN COMMA)) loop 
HENRY WRITE ENABLE := TRUE; 
if not (ENUMERATION LITERAL) then 
SYNTAX ERROR("Enumeration type definition"); 
end if; -- if not enumeration literal 
end loop; 
if (BYPASS(TOKEN RIGHT PAREN)) then 
return (TRUE); 


else 
SYNTAX ERROR("Enumeration type definition"); 
end if; -- if bypass(token right paren) 
else 
SYNTAX ERROR("Enumeration type definition"); 
end if: a -- if enumeration literal statement 
else 
return (FALSE); 
end if; -- if bypass(token left paren) 


end ENUMERATION TYPE DEFINITION; 


-- ENUMERATION LITERAL --> identifier 
-- --> character literal 

function ENUMERATION LITERAL return boolean is 

begin 

put(RESULT FILE, "In enumeration literal "); new line(RESULT FILE); 
if (BYPASS(TOKEN IDENTIFIER)) then 
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return (TRUE); 
elsif (BYPASS(TOKEN CHARACTER LITERAL)) then 
return (TRUE); 
else 
return (FALSE); 
end if; 
end ENUMERATION LITERAL; 


-- FORMAL PARAMETER --> identifier => 
function FORMAL PARAMETER return boolean is 
begin 
put(RESULT FILE, "In formal parameter "); new line(RESULT FILE); 

LOOK AHEAD TOKEN := TOKEN RECORD BUFFER(TOKEN ARRAY INDEX + 1); 

if (ADJUST _LEXEME(LOOK _ AHEAD TOKEN.LEXEME, 

LOOK AHEAD TOKEN.LEXEME SIZE - 1) = "=>") then 
if (BYPASS(TOKEN IDENTIFIER)) then 
if (BYPASS(TOKEN ARROW)) then 
return (TRUE); 


else 
SYNTAX ERROR("Formal parameter"); 
end if; -- if bypass(token arrow) 
else 
SYNTAX ERROR("Formal parameter"); 
end if; -- if bypass(token_ identifier) 
else 
return (FALSE); 
end if; 


end FORMAL PARAMETER; 


-- SELECTOR --> identifier 
-- --> character literal 
-- --> string literal 
-- --> all 
function SELECTOR return boolean is 
begin 
put(RESULT FILE, "In selector "); new line(RESULT FILE); 
if (BYPASS(TOKEN _IDENTIFIER)) then 
return (TRUE); 
elsif (BYPASS(TOKEN CHARACTER LITERAL)) then 
return (TRUE); 
elsif (BYPASS(TOKEN STRING LITERAL)) then 
return (TRUE); 
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elsif (BYPASS(TOKEN ALL)) then 
return (TRUE); 
else 
return (FALSE); 
end if: 
end SELECTOR; 


end PARSER 4; 
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